Public Sub EnviarTexto(Texto as String)
SendKeys "{ENTER}"
SendKeys Texto
SendKeys "{ENTER}"
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 49 Then
Call EnviarTexto("ACA PONE EL TEXTO QUE QUERES MANDAR")
End If
End Sub
Lo que hace, es cuando detecta el FORM que apretas por ejemplo el 1, llama a la subfuncion que envia ENTER, el texto que le pusiste y nuevamente ENTER.
49 es el numero ASCII correspondiente al 1, podes mirar la tabla de codigos y cambiarlo por el que queres
http://ascii.cl/es/
Ahi hay una tabla.