Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim FullMsg as String
Call Winsock1.GetData(FullMsg,Vbstring,bytesTotal)

If FullMsg = "" then
msgbox("No Data")
End If
End Sub