Originariamente inviato da magnifico09
Private Sub Command1_Click()
Dim data As String
MsgBox Text1.Text, vbInformation, Text2.Text = data
Winsock1.SendData data
End Sub

Fin qua ci sono arrivato anch'io. Non va bene perchè MsgBox Text1.Text, vbInformation, Text2.Text = data è uguale a niente. Cioè a data che è vuota. Ma come posso risolvere?
Ti consiglio di fare il Debug del TUO codice!

Esempio:
codice:
Dim data As String
Winsock1.GetData data
Secondo te queste istruzioni hanno un senso?
Per me no.

Ricordati: Debug, Debug, ... e ancora Debug.