VB的Textbox限制输入问题?

Question

Text1前面第1位这可以输入A D F J 这四个字母,不分大小写
否则判断,出错.如下:MsgBox "输入格式错误，请重新输入！", , "提示" 
Text1.Text = ""

Answer 1

补充:
Text1也限制输入符号。

Answer 2

Use 
Text1_Validate(Cancel As Boolean)

Answer 3

Private Sub Text1_Change()
 Dim UL As String
 UL = Right(Text1.Text, 1)
If UL <> "" And UL <> "A" And UL <> "a" And UL <> "D" And UL <> "d" And UL <> "F" And UL <> "f" And UL <> "J" And UL <> "j" Then
 MsgBox "输入格式错误，请重新输入！", , "提示"
 Text1.Text = ""
End If
End Sub

Answer 4

还要改一下啊.不行的.
输入字母了,后面怎么不能输入数字了.
Private Sub Text1_Change()
 Dim UL As String
 UL = Right(Text1.Text, 1)
If UL <> "" And UL <> "A" And UL <> "a" And UL <> "D" And UL <> "d" And UL <> "F" And UL <> "f" And UL <> "J" And UL <> "j" Then
 MsgBox "输入格式错误，请重新输入！", , "提示"
 Text1.Text = ""
End If
End Sub

Answer 5

Private Sub Text1_Change()
 Dim UL As String
 UL = Left(Text1.Text, 1)
If UL <> "" And UL <> "A" And UL <> "a" And UL <> "D" And UL <> "d" And UL <> "F" And UL <> "f" And UL <> "J" And UL <> "j" Then
 MsgBox "输入格式错误，请重新输入！", , "提示"
 Text1.Text = ""
End If
End Sub