More Data Help

[moeur]

You need to put some code into the Winsock2.DataArrival event to put the received string into Text1

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock2.GetData strData
Debug.Print strData
Text1 = strData
 
End Sub