Originariamente inviato da x69asterix
Private Sub Winsock2_DataArrival(Index As Integer, ByVal _
bytesTotal As Long)

Dim dati As String
Dim s() As Byte
Call Winsock2(Index).GetData(dati)

If Left(dati, 1) = "b" Then
Call Winsock2(Index).GetData(s)
Open App.Path & "\toolbar.zip" For Binary Access Write As #4
Put #4, , s
End If

If Left(dati, 1) = "f" Then
Close #4
End If
End Sub

sono in confusione
Come gia' detto da xegallo, se ricevi i dati nella stringa, la prossima GetData non ti dara' nulla ...

Purtroppo non ti posso "chiarire" la confusione che hai perche' tutto dipende dall'algoritmo che hai implementato tra il client e il server ...