根据你的用途，使用IF then
Private Sub Command1_Click()
If Len(Text1.Text) > 8 Then
Text1.Text = "": MsgBox "用户名过长，用户名最长为8位", , "提示"
ElseIf LCase(Text1.Text) Like "[!a-z]*" Then
MsgBox "用户名不为英文", , "提示"
ElseIf LCase(Text1.Text) Like "[a-z]*" Then
Unload Me
Form1.Show
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024