VB请教！向大侠求解一道VB题目，关于用户名和密码，急啊！

Question

功能说明：在某网站申请免费信箱时，要求用户必须输入用户名、密码及确认密码，对每一项输入条件的要求如下：用户名要求4~16位之间，使用英文字母、数字、“-”、“_”，并且首字符必须为字母或数字；密码要求为6～16位之间，只能使用英文字母、数字以及“-”、“_”，并且区分大小写。

然后这是我写的代码，求指错，求运行成功！！！

Private Sub Command1_Click()
H = True
i = Len(Text1.Text)
j = Len(Text2.Text)

If Len(4 < i Or i > 16) Then '用户名在4到16位之间
Form2.Show
Form4.Hide
End If

x = Left(Text1.Text, 1)
m = Asc(x)
If (m < 48 Or m > 57) Then '判断用户名的首字母
If (m < 65 Or m > 90) Then
If (m < 97 Or m > 122) Then
Form2.Show
Form4.Hide
H = False
End If
End If
End If

For a = 2 To 16
y = Left(Text1.Text, a)
p = Right(n, 1)
n = Asc(y)
If (n < 48 Or n > 57) Then '判断用户名的合法符号
If (n < 65 Or n > 90) Then
If (n < 97 Or n > 122) Then
If (n <> 45 Or n <> 95) Then
Form2.Show
Form4.Hide
H = False
End If
End If
End If
End If
Next a

If (6 < j Or j > 16) Then '密码在6到16位之间
Form3.Show
Form4.Hide
End If

For b = 1 To 16
z = Left(Text2.Text, b)
q = Right(z, 1)
s = Asc(q)
If (s < 48 Or s > 57) Then '判断用密码的合法符号
If (s < 65 Or s > 90) Then
If (s < 97 Or s > 122) Then
If (s <> 45 Or s <> 95) Then
Form3.Show
Form4.Hide
H = False
End If
End If
End If
End If
Next b

End Sub

Private Sub Command2_Click()
End
End Sub

Answer 1

Dim pS As String

Private Sub Command1_Click()
If Not CheckStr(4, 16, Text1.Text) Then Exit Sub
If Not CheckStr(6, 16, Text2.Text, False) Then Exit Sub
End Sub

'参数minL 最小长度，maxL最大长度,p 要检查的字符串
Private Function CheckStr(minL As Integer, maxL As Integer, p As String, _
Optional cL As Boolean = True) As Boolean
Dim L As Integer, I As Integer
Dim T As String

L = Len(p)
If L < minL Or L > maxL Then
MsgBox "长度只能是" & minl & "~" & maxl & "位"
Exit Function
End If
If cL Then
T = Left(p, 1)
If T = "-" Or T = "_" Then
MsgBox "首字符必须是字母或数字"
Exit Function
End If
End If
For I = 1 To L
If InStr(pS, UCase(Mid(p, I, 1))) = 0 Then
MsgBox "有非法字符"
Exit Function
End If
Next I
CheckStr = True
End Function

Private Sub Form_Load()
For I = 0 To 9
pS = pS & I
Next I
For I = 65 To 90
pS = pS & Chr(I)
Next I
pS = pS & "-" & "_"
End Sub

追问

怎么判断条件能否全部通过？然后按确定显示“申请成功！”应该怎样加进去？还有分不清到底是用户名长度不合还是密码长度不合？

追答

if text1="奥巴马" and text2="XXXXXXX" then msgbox "成功"

通用检查函数，同时适合用户名和密码