Hmm, we already have the Like operator, so why not just use that?
Code:
Private Sub Command1_Click()
    MsgBox "Has special chars = " _
         & CStr(Text1.Text Like "*[!0-9A-Za-z]*")
    Text1.SetFocus
End Sub