Summing Numeric Digits in a String

[swaatacba]

Twenty years ago I built the following Function.

Function SUMDIGITS(MyString As String) As Long
Dim MyLen As Long
Dim MyAnswer As Long
Dim i As Integer


MyAnswer = 0
MyLen = Len(MyString)

For i = 1 To MyLen
    If IsNumeric(Mid(MyString, i, 1)) Then
        MyAnswer = MyAnswer + CInt(Mid(MyString, i, 1))
    End If
Next

SUMDIGITS = MyAnswer
      
End Function

It is gives strange answers. For example applying this function to the string

// ref1 & ref2 may be 6- or 8-digit references eg SU387148 or SU38714856

Generates the answer 90, which is the sum of each individual digit in the string.

Can anyone identify a good reason for keeping the Function as it stands?

[romperstomper]

How is that a strange answer? The functions does exactly what you described. Surely the question is why would you use it on that string?

[swaatacba]

Surely the question is why would you use it on that string?

I agree with you.

[swaatacba]

My thanks to everyone who has taken the trouble to look at this thread.

Following Rory's interpretation, no one has thought of a good reason for using the Function.

Since this mirrors my own view, I shall set this thread to 'SOLVED'.

[Glenn Kennedy]

What did/do you want it to do????

[romperstomper]

I can think of cases where it would be useful, I just said I couldn't see the point of using it on text like that!

[swaatacba]

Rory and Glenn. At the time (20 years ago), I was just playing with how to extract number values from strings. I hoped I might find a use for it but nothing has appeared

Essentially, this was the beginning of journey which lead me to extract arrays / databases of information about numeric values contained within text strings. This was, potentially, much more useful, but limited to fairly short strings - say less than a 1000 characters.

Typically other things interfered and I lost sight of the project. I am only now looking again at it.

Rory as it stands the SUNDIGITS function only the operates on strings, but there is also a sister function NUMDIGITS.