判断用户名是否包含非法字符

'====================================================
'判断用户名是否包含非法字符 True 合法的字符串
'====================================================
Function CheckString(Str1)
 Dim N
 Dim S
 For N = 1 To Len(Str1)
  S = Asc(Mid(Str1, N))
  If S > 47 And S < 58 Or S > 64 And S < 91 Or S > 96 And S < 122 Or S = 95 Then '合法的字符串
   CheckString=True
  Else 
   CheckString=False
  End If
 Next
End Function