Cita:
Iniciado por Javierillo 
Private Sub Command1_Click()
Dim entexto1 As String
entexto1 = "texto en texto1"
Winsock1.SendData entexto1
Dim entexto2 As String
entexto2 = "texto en texto2"
Winsock1.SendData entexto2
End Sub
Y esto otro en la aplicacion que lo recibe
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim entexto1 As String
Winsock1.GetData entexto1
Text1 = entexto1
Dim entexto2 As String
Winsock1.GetData entexto2
Text2 = entexto2
tu problema es simple cuando estabelces la coneion envias los datos y luego los recibe ty los deposita en la variable entexto 1 esto se debe a que envias los datos del text1 y dos ujuntos es decir uno tras otro y al recibirlos seb depositan en la variable entexto1 lo que debes hace es poner u8na condicional en el dataarival
esta condicional la mandas para distingir que textbos es el que envia el texto y asi decidir quien lon recibe, si son 2 textbox podrias usar un IF pero si son mas te recomiendo usar la funcion select case