Visual Basic 6 - problema con winsock1.get data

...non proprio...allora il client invia al server 2 strighe "CIAO" e "COME STAI?"
queste due strighe arrivano al server con il Winsock1.GetData che riceve insieme le stringhe...invece a me servono separatamente...
ovvero in un textbox voglio visualizzare "CIAO" e in un altro "COME STAI?"

Allora nel client invia i dati cosi'

Winsock2.SendData "1:" & Invia 
...
Winsock2.SendData "2:" & Invia 

e nel server ricevili cosi'

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 
  Dim ricevuto As String 
  dim tn As Long  
 
  Winsock1.GetData ricevuto 
  tn = Val(ricevuto)
  ricevuto = Mid$(ricevuto,3)

  If tn=1 Then
     Text1.Text = ricevuto 
  Else
     Text2.Text = ricevuto 
  End If
End Sub 

c'è qualcosa che nn va...credo in ricevuto= Mid$(ricevuto, 3)...mi taglia le stringhe...ovvero nn viene visualizzato il loro valore copleto, alcune cifre scompaiono

le 2 stringhe devono essere mandate separatmente x forza dal server?

intendo ke al posto di:
winsock1.senddata "ciao"
winsock1.senddata "come stai?"

si potrebbe mandare tutto unito tipo:
winsock1.senddata "ciao-come stai?"

e poi magari con la funzione Split separare le 2 frasi

???

Cioe'? Cosa trasmetti? Cosa ricevi?

rieccomi...con i miei problemi.
allora diciamo che mezzo problema l'ho risolto...anche se, nn è ancora quello che volgio!!!
con questo codice riesco ad iviare 2 strighe ed a riceverle perfettamente nelle 2 textbox separate...ma se ne volgio inviare 3 o anora di + sto di nuovo punto e accapo, in quanto le strighe mi arrivano tutte mischiate e unite...

ecco il codice:
CLIENT
Private Sub cmdInvia_Click()
'INVIA I DATI SULLA SOCKET E CHIUDE LA CONNESSIONE

Dim Invia As String
Dim Invia2 As String

Invia = txtImp96.Text
If Winsock2.State = sckConnected Then
Winsock2.SendData Invia
DoEvents

Invia2 = txtImp91.Text
Winsock2.SendData Invia2
DoEvents

Winsock2.Close
End If
End Sub

SERVER
Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
'LEGGE I DATI IN ARRIVO E LI VISUALIZZA
Dim ricevuto As String
Winsock2.GetData ricevuto
txtImp91.Text = ricevuto
DoEvents

txtImp96.Text = ricevuto
DoEvents

Winsock2.Close
End Sub

come posso fare per inviare un'ulteriore striga?

Questa strada e' sbagliata ... ti avevo mostrato un codice d'esempio che inseriva davanti alla stringa una "etichetta" ... devi seguire quella strada ...

Oppure invia le 3 stringhe in una sola separandole con un carattere ... nel server userai la Split per separarle ...