vb 输入keyascii解决问题~~~~

Question

要写一段对输入的内容进行判断的代码..但函数不懂..求助了!! 
如下: 
首先对TEXT1.TEXT中的内容进行判断,如果输入了符号,例如, . ! # 则提示"输入错误,请重新输入"(因为只允许输入数或字母又或者是数字+字母的组合) 
1.如果TEXT1.TEXT输入的为123456则在TEXT2.TEXT中显示"是弱口令".(这个应该用判断语句就可实现吧) 
2.如果输入的数字低于8位数,则在TEXT2.TEXT中显示 "密码安全度30%". 
3.如果输入的数字大于8位小于12位则在TEXT2.TEXT中显示"密码安全度为50%" 
4.如果输入的数字大于12位则在TEXT2.TEXT中显示"密码安全度为70%" 
5.如果输入的是数字+字母并且判断是否大于8位小于12位,是则提示"密码安全度90%"小于8位则提示"密码安全度80%"大于12位则提示"密码安全度99%" 

Answer 1

Private Sub Command1_Click()
Dim n As Integer
n = Len(Text1.Text)
If Text1.Text Like "*[!0-9A-Za-z]*" Then
MsgBox "输入错误,请重新输入!"
Text1.SetFocus
SendKeys "^{HOME}+{END}"
Else
If IsNumeric(Text1.Text) Then
If Text1.Text = "123456" Then Text2.Text = "是弱口令": Exit Sub
If n < 8 Then
Text2.Text = "密码安全度30%"
Else
If n > 12 Then
Text2.Text = "密码安全度70%"
Else
Text2.Text = "密码安全度50%"
End If
End If
End If
If Text1.Text Like "*#*" And Text1.Text Like "*[a-zA-Z]*" Then
If n < 8 Then
Text2.Text = "密码安全度80%"
Else
If n > 12 Then
Text2.Text = "密码安全度99%"
Else
Text2.Text = "密码安全度90%"
End If
End If
End If
End If
End Sub