Hbaer lo que quiero hacer es enviar un mensaje lo envio de esta forma:

Private Sub Command1_Click()
 Dim enviar As String
 enviar = mensaje
 ws.SendData destino & mensaje
End Sub


El destino es otra caja de texto en donde envio un  numero. y la otra envio el mensaje


lo recibo de esta forma:

Dim datos As String
Dim tripas As String
 ws.GetData datos
 tripas = Split(datos, "destino")
 MsgBox (tripas(0))
 recibir.Text = recibir.Text + datos + vbCrLf
End Sub

quiero que el mensaje tripas(0) solo sea el numero que introdujo al enviarlo no el numero mnas mensaje por ejmplo:
1rtrtrgfg sino solo "1" nose si alguien me podra ayudar con esto bueno cuidense saludos

Y asi funcionara ? bueno a probar

Envio:

Data Arrival:

Pones un caracter entre Destino y Mensaje. Algo asi:


Saludos.-