Winsock...

[Static]

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim incommingData As String 
    Winsock1.GetData incommingData
    Text1 = Replace(incommingData, "\", vbCrLf)
End Sub

all the data is not coming back.. it seems to get cut off..at 1399

I know there is more because the last line I see stops mid word...