var in functie komen niet overeen/ foutje dubbel bericht graag verwijderen

ik heb de volgende stukjes in vb6 geschreven:

Private Sub Command3_Click()
Dim tekst As String
tekst = Text1.Text
b = isgeheelgetal(Text1.Text)
If b = 1 Then
c = MsgBox(tekst)
End If
If b = 2 Then
c = MsgBox(tekst + " de werkorde is niet een geheel getal")
End If
If b = 3 Then
c = MsgBox(tekst + " de werkorde heeft een waarde kleiner dan 0 ")
End If
If b = 4 Then
c = MsgBox(tekst + " de werkorde is niet een numerice waarde")
End If
End Sub

en

Public Function isgeheelgetal(a As String) As Integer
If isnumeric Then
If a > 0 Then
If a - Int = 0 Then
isgeheelgetal = 1
Else
isgeheelgetal = 2
End If
Else
isgeheelgetal = 3
End If
Else
isgeheelgetal = 4
End If
End Function

en zo werkt het wel.

Wat ik eigenlijk wil is gebruik maken van de var tekst in de functie isgeheelgetal.
dus
b = isgeheelgetal(tekst)
maar dit geeft een foutmelding binnen vb.

Kan mij iemand uitleggen hoe dit komt en hoe ik de variabelen wel moet declareren zodat het goed gaat.

Bedankt

Jan