Comprobar cajas de texto
    
		    Qué tnego que hacer para que al apretar un botón comperuebe que en una o varias cajas de texto no hay las letras o Ãmbolos que marque y si las hay que aparezca una MsgBox que indique que ha de quitarlo.
Y si es posible que se borre lo escrito.
 
	    
    Y si es posible que se borre lo escrito.
		    Private Sub Txt_B1_KeyPress(KeyAscii As Integer)
Call numeros1(KeyAscii)
If KeyAscii = 13 And Txt_B1.Text <> "" Then
MSGBOX ("ASASASAS")
Txt_B1.Text=""
End If
End Sub
    Call numeros1(KeyAscii)
If KeyAscii = 13 And Txt_B1.Text <> "" Then
MSGBOX ("ASASASAS")
Txt_B1.Text=""
End If
End Sub
