[VB6]Winsock: DataArrival

[x69asterix]

mi spiegate se questa procedura è corretta?
praticamente lato client:

 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
   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