vba: macro escapes for-loop !

Question

sub main()   

'''some more code'''

For j = InStr(1, stext, " ") To Len(stext)
        If IsNumeric(Mid(stext, j, 1)) Or IsAlpha(Mid(stext, j, 1)) Then
            letter1 = Mid(stext, j, Len(stext))
            Exit For
        End If
    Next j

'''some more code'''

end sub

i am walking through line by line.

as soon as the macro gets to this line:

If IsNumeric(Mid(stext, j, 1)) Or IsAlpha(Mid(stext, j, 1)) Then

it escapes the entire sub!

does anyone know what i am doing wrong?

Answer 1

This typically happens when you have an error. In this case, it could be an out of bounds error. You could have a space at the end of stext, which would cause this problem.

Answer 2

I think this might help.

ISALPHA, ISNUMERIC? - Microsoft Access / VBA Answers