ByRef argument type mismatch error

[Ark68]

I am receiving a 'ByRef argument type mismatch' error with the highlighted code below...

Dim wstime1, wstime2, wstime3, wstime4, wstime5 As String
Dim lNumber1, lNumber2, lNumber3, lNumber4, lNumber5 As Long

wstime1 = Application.WorksheetFunction.VLookup(lrid, rvl5, 43, False)
wstime2 = Application.WorksheetFunction.VLookup(lrid, rvl5, 46, False)
lNumber1 = GetFirstNumeric(wstime1)
lNumber2 = GetFirstNumeric(wstime2)

In my testing wstime1 should equal "<2:30 PM" (can't check as the code errors before i can step through)

'GetFirstNumeric' is a function ...

Function GetFirstNumeric(s As String) As Long
    Dim u As Long
    For u = 1 To Len(s)
        If Mid(s, u, 1) Like "#" Then
            GetFirstNumeric = u
            Exit For
        End If
    Next u
End Function

Is anyone able to provide any suggestions on the possible cause of this error and how to resolve it?

 

[StephenCrump]

In VBA you need to declare each variable type like this:

Dim wstime1 as String, wstime2 as String, wstime3 as String, wstime4 as String, wstime5 As String

otherwise the default Variant will apply.

 

[hiker95]

Ark68,

You have to declare each variable with its type, try the following:

Dim wstime1 As String, wstime2 As String, wstime3 As String, wstime4 As String, wstime5 As String
Dim lNumber1 As Long, lNumber2 As Long, lNumber3 As Long, lNumber4 As Long, lNumber5 As Long

 

[Ark68]

Thanks guys for your replies. That cleaned up things nicely.

I did not know that about variable declaration. I have used "my" technique of declaring multiple variables throughout my project thinking it was the standard. Now I learn it's just the opposite. Looks like I have to go back and make some more changes.

 

[hiker95]

Ark68,

Thanks for the feedback.

You are very welcome. Glad we could help.

And, come back anytime.