VB中判断text内的内容是否符合要求

Private Sub Form_Click()
Const cphm = "桂5G3761" '车牌号码
Const hznr = "冀豫云辽黑湘皖鲁新苏浙赣鄂桂甘晋蒙陕吉闽贵川青宁渝粤京津沪" '车牌号码汉字内容
Dim cphmi As String * 1
Dim cphmia As Integer
For i = 1 To 6
cphmi = Mid(cphm, i, 1) '读取到某一位车牌号码
Select Case i
Case 1 '判断这个汉字
If InStr(hznr, cphmi) = 0 Then cperror = True
Case 2, 3 '判断这两个是否数字或字母
cphmia = UCase(Asc(cphmi)) '这个字母的acsii码(转换大写)
If cphmia < 48 Or cphmia > 57 And cphmia < 65 Or cphmia > 90 Then cperror = True
Case 4 To 6 '判断最后3位是否数字
If Asc(cphmi) < 48 Or Asc(cphmi) > 57 Then cperror = True
End Select
If Len(cphm) <> 6 Then cperror = True '车牌号码不是6位
Next
If cperror Then MsgBox "请正确输入车牌号码"
End Sub

特意为你写的，花了25分钟，给我分吧~谢谢啦，如果哪里看不懂的请联系我的扣86333956