Visual Basic - A ver quié sabe esta que me está volviendo loco

Tengo un error de desbordamiento en una función que me está volviendo loco. Estoy haciendo algo tan simple como sumarle 1 a un contador ("su" en integer). Pero me marca error de desbordamiento y no se por qué. Me marca que el error está en "su=su+1". cuando me fijo que valor tiene la variable "su" dice: 32767 y no se por qué ya que la variable está inicializada en 1.
Aquí está el código de la función. Si alguien me puede ayudar estaría buenísimo.
--------------------------------------------------------------------------------
Public Function yata(caranum As Integer) As Integer
Dim su As Integer
su = 1
While Str(caranum) <> Mid(yat, su, su) Or su <> Len(yat)
su = su + 1
Wend
If Str(caranum) = Mid(yat, su, su) Then
yata = 1
Else
yata = 0
End If
End Function

Evidentemente. Declara la variable su como Long.
Saludos

me sigue pasando

Intenta con double

Por más que intentes lo que intentes, ese Do provoca una iteración infinita y por supuesto, te ocasiona un desbordamiento de la Pila cuando no un overflow general del sistema.
Debés rever las condiciones del bucle porque no se cumplen y constantemente sigue sumando uno a la variable.
Es como un
Do while True
a= a+a
Loop

Siempre va a ser vedadero y por lo tanto nunca va a salir del bucle.