Option Explicit

Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 65 Or KeyAscii > 90 Then（ 数65--90代表的是ASCii中的A---W26个字母）
若keyascii不在65--90之间
Label1.Caption = "输入的不是大写字母，请重新输入" 显示不是大写字母的信息
If Text1.Text <> "" Then 若文本框不为空
Text1.Text = ""清除文本框中的内容
End If 先将文本框中刚输入的字符删除，然后在重新输入

Else
Label1.Caption = "恭喜你，输入成功"
If Text1.Text <> "" Then
Text1.Text = ""
End If
End If

End Sub