Ensayo

A este lo hice con todas las letras. Lo único q no sé si se puede o no reducir para q no sea tan largo je el otro lo estoy tratando d hacer el q es como vos me pediste. Este q te mendo surgió dprobar lo que me pediste q haga:
Private Sub Command1_Click()
Dim bandera As Variant
bandera = False
If Text1.Text <> "" Then
If UCase(Text1.Text) = "A" Then
MsgBox ("El usuarioIngreso una letra")
bandera = True
End If
If UCase(Text1.Text) = "B" Then
MsgBox ("El usuario Ingreso una letra")
bandera = True
End If
If UCase(Text1.Text)= "C" Then
MsgBox ("El usuario Ingreso una letra")
bandera = True
End If
If UCase(Text1.Text) = "D" Then
MsgBox ("El usuario Ingreso una letra")
bandera= True
End If
If UCase(Text1.Text) = "E" Then
MsgBox ("El usuario Ingreso una letra")
bandera = True
End If
If UCase(Text1.Text) = "F" Then
MsgBox ("Elusuario Ingreso una letra")
bandera = True
End If
If UCase(Text1.Text) = "G" Then
MsgBox ("El usuario Ingreso una letra")
bandera = True
End If
IfUCase(Text1.Text) = "H" Then
MsgBox ("El usuario Ingreso una letra")
bandera = True
End If
If UCase(Text1.Text) = "I" Then
MsgBox ("El usuario Ingreso una letra")bandera = True
End If
If UCase(Text1.Text) = "J" Then
MsgBox ("El usuario Ingreso una letra")
bandera = True
End If
If UCase(Text1.Text) = "K" ThenMsgBox ("El usuario Ingreso una letra")
bandera = True
End If
If UCase(Text1.Text) = "L" Then
MsgBox ("El usuario Ingreso una letra")
bandera = True
End IfIf UCase(Text1.Text) = "M" Then
MsgBox ("El usuario Ingreso una letra")
bandera = True
End If
If UCase(Text1.Text) = "N" Then
MsgBox ("El usuario Ingreso una...