[Private Sub Command5_Click()
Dim send, mensaje
mensaje = "msg * "        ' para añadirlo al codigo
texto = Text3.Text         ' recoge el texto que se va a enviar
WS.SendData Shell(mensaje & texto)    ' se envia el mensaje con el texto
End Sub
----------------------------------------------------------------------
Private Sub Text3_Change()

End Sub