有没有判断字符串是否为英文字母的函数?

函数在  Henry D. Sy 17:40:46  的帮助下搞定了

Public Function EngOrNot(str As Variant) As Boolean
    Dim strTemp As String
    Dim I, J As Integer
    If Len(Nz(str)) = 0 Then
        str = "8"
    End If
    For I = 1 To Len(str)
        strTemp = Mid(str, I, 1)
        J = Asc(strTemp)
        If (90 >= J And J >= 65) Or (122 >= J And J >= 97) Then
            EngOrNot = True
        Else
            EngOrNot = False
            Exit Function
        End If
    Next
End Function