条件在for循环逍遥子

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

我认为这可能有帮助。

ISALPHA, ISNUMERIC? - Microsoft Access/VBA Answers

Answer 2

这通常发生在出现错误时。在这种情况下，它可能是一个超出界限的错误。您可能在stext的末尾留出空间，这会导致此问题。