Visual Basic - winsock1.bytesreceived

hola estoy trabajando en una aplicacion que envia archivos atraves del control winsock
con una progresbar se la cantidad de bytes enviados pero mi consulta es como puedo saber la cantidad de bytes recividos

Private Sub TCP_DataArrival(ByVal bytesTotal As Long)

Dim Texto As String

TCP.GetData Texto
Text1.Text = Texto
If Mid(Texto, 1, 3) = "EMA" Then
cargo_Datos Texto
Exit Sub
End If


If Mid(Texto, 1, 3) = "LAR" Then
Frame1.Caption = "Archivo : " & Mid(Texto, 4, Len(Texto) - 3) & " bytes."
Largo = CLng(Mid(Texto, 4, Len(Texto) - 3))
Exit Sub
End If

Archivo = Archivo & Texto

If Len(Archivo) >= Largo Then
Common.DialogTitle = "Guardar archivo..."
Common.FileName = Label1.Caption
Common.ShowSave
Open Common.FileName For Binary As #1
Put #1, , Archivo
Largo = 0
Archivo = ""
Close #1
End If

' //////////////////////////////////////////////////////////////////


Private Sub TCP_SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)
Barra.Min = 0
Barra.Max = bytesSent + bytesRemaining
Barra.Value = bytesSent
End Sub

agradeceria cualquier ayuda manual links que me ayude gracias mi email : [email protected]