Function works but I get a run time error 13.

Hi,

This is a function to add the ascii values of a string to give a single value. Initially I wrote this as a Sub routine and it worked fine, but when making it into a function, I get this error. From a little research it appears that you can not use a string as an arguement for a function call, yet that defeats the object of this particular function.

The intention of this function is that it works on a name in a given cell and the value (an integar) that is produced is then displayed in another cell, or if using it as a formula, the cell the formula is in.

I simple wrote the work "Hello" in cell A1 the ascii values of these added ignoring any spaces give 500 which is correct.

Option Explicit
Sub Test()
    TestNum ("A1")
End Sub

Function TestNum()
    Dim s As String
    Dim i As Integer
    Dim x As Integer
    Dim y As Integer
    
    s = Range("A1")
    y = 0
    For i = 1 To Len(s)
        x = Asc(Mid$(s, i, 1))
        If x <> 32 Then
            y = y + x
        End If
    Next i
    Range("D1") = y
End Function

Any help would be appreciated

Rob

Thank you Norie, that is excellent, I actually came up with this after discovering the debug command, it's almost identical, but it is good to get verification.

Option Explicit
Sub Test()
    TestNum (Range("A1"))
End Sub

Function TestNum(s As String)
    Dim i As Integer
    Dim x As Integer
    Dim y As Integer
    
    y = 0
    For i = 1 To Len(s)
        x = Asc(Mid$(s, i, 1))
        If x <> 32 Then
            y = y + x
            Debug.Print "The value of variable I is: " & i
            Debug.Print "The value of variable S is: " & s
            Debug.Print "The value of variable X is: " & x
            Debug.Print "The value of variable Y is: " & y
        End If
    Next i
    Range("D1") = y
End Function