调试易

逐个判断ASCII值，是否在48-57，65-90，97-122之内！

Private Sub Command1_Click()
    Dim strTemp As String
    strTemp = "aslkdjalksj32334j23j"
    Dim i As Integer
    For i = 1 To Len(strTemp)
        If IsCommonChar(Mid(strTemp, i, 1)) = False Then
            MsgBox "有非字母或数字的字符"
            Exit Sub
        End If
    Next
    MsgBox "没有非字母或数字的字符"
    
    strTemp = "aslkdja@￥#！￥lksj32334j23j"
    For i = 1 To Len(strTemp)
        If IsCommonChar(Mid(strTemp, i, 1)) = False Then
            MsgBox "有非字母或数字的字符"
            Exit Sub
        End If
    Next
    MsgBox "没有非字母或数字的字符"
End SubPrivate Function IsCommonChar(strChar As String) As Boolean
    If (Asc(strChar) >= 48 And Asc(strChar) <= 57) _
        Or (Asc(strChar) >= 65 And Asc(strChar) <= 90) _
        Or (Asc(strChar) >= 97 And Asc(strChar) <= 122) Then
        IsCommonChar = True
    Else
        IsCommonChar = False
    End If
End Function

Private Sub Command1_Click()
MsgBox ZIMUSHUZIONLY("123DFGD#SGG")
End Sub
Function ZIMUSHUZIONLY(ByVal X As String) As Boolean
ZIMUSHUZIONLY = False
For I = 0 To 9
X = Replace(X, I, "")
Next
For I = 1 To 26
X = Replace(X, Chr(64 + I), "")
X = Replace(X, Chr(96 + I), "")
Next
If X = "" Then ZIMUSHUZIONLY = True
End Function