Silly error on a simple function call - help

[allenjasonbrown@gmail.com]

Hello all and thank you in advance. I am getting a "ByRef argument Type Mismatch" on the following code:

Sub testsub()
    
    vOrigNumber = 563200003
    Debug.Print vOrigNumber
    
    vSumDigits = DigitSum(vOrigNumber)
    Debug.Print vSumDigits
End Sub


Public Function DigitSum(NumberIn As String) As Integer
        Dim DigitLen As Integer, CheckLen As Integer
        Let DigitLen = Len(NumberIn)
        Let CheckLen = 1
        Let DigitSum = 0
        Do While CheckLen <= DigitLen
        DigitSum = DigitSum + CInt(Mid(NumberIn, CheckLen, 1))
        CheckLen = CheckLen + 1
        Loop
End Function

if I replace 'vOrigNumber' with 563200003 when calling the function, it works fine.

Any idea why it does not like the variable???

Thanks

[RuralGuy]

Try changing this one line:
vSumDigits = DigitSum(vOrigNumber)
...to...
vSumDigits = DigitSum(Cstr(vOrigNumber))

[allenjasonbrown@gmail.com]

Sweet! Thank you, that was it!

[RuralGuy]

Glad we could help. Do you understand why?

[allenjasonbrown@gmail.com]

Yes. I tried doing a CInt() because of the "as Integer" (which did not work) but after you posted your answer I see how I should have been looking at the "NumberIn As String".
Thanks Again....have a great weekend!

[RuralGuy]

Right on the money! Have fun.