problemer med WinSocket Fejl i modtagelse

Jeg sender hvis antal byts og modtager måske dem alle eller måske 1/2 delen. Jeg mener at det er winsocket der er et problem med eller (mig) mit program. Se her

s1 = Data fra winsocket


    Select Case arrs1(1)
    Case "BOF"
        FileName = arrs1(2)
        FileSize = arrs1(3)
        frmProgress.Show vbModeless, Me
        txtModtag = "BOF -> " & FileName & vbCrLf & txtModtag
        DoEvents
        wskTCP.SendData "@TransFile;NEXT"
    Case "EOF"
        Close #hFile
        frmProgress.Hide
        wskTCP.Close
        txtModtag = "EOF -> " & FileName & vbCrLf & txtModtag
    Case Else
        hFile = FreeFile
        DoEvents
        Open App.Path & "\" & FileName For Binary As #hFile
        Seek #hFile, LOF(hFile) + 1
        strData = Trim(Mid(s1, 12))
        Put hFile, , strData 'Mid(s1, 12)
        Close #hFile
        lngtal = Len(strData)
        txtSend = txtSend + Str(lngtal)
        Counter = Counter + 1
        lngpos = lngpos + lngtal
        lngtal = (lngpos / FileSize) * 100
        frmProgress.setMe lngtal
        DoEvents
        wskTCP.SendData "@TransFile;NEXT"
    End Select

Jeg ved at Serveren sender det rigtig antal byts.
Håber at nogle sider med et svar.