Условный In For Loop Escape Sub

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

Когда я прохожу макрос, когда он попадает в эту строку:

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

он ускользает от всей сабы!

Что я делаю не так и как мне это решить?

Answer 1

Обычно это происходит, когда у вас есть ошибка.В этом случае это может быть ошибкой вне пределов.В конце stext может быть пробел, что может вызвать эту проблему.

Answer 2

Я думаю, что это может помочь.

ISALPHA, ISNUMERIC? - Microsoft Access / VBA ответы