problema con enviar archivo y progressbar

bueno hacia mucho q no usaba estas funciones... y como un #€#?@ no guarde un proyecto donde lo tenia...
el caso es q estaba tratando de hacer de nuevo un programa para enviar archivos con progressbar en el cliente y en el servidor...
el programa solo tiene eso, lo acabo de hacer para recordar.. y me di cuenta q no lo recuerdo muy bien xD..

Servidor:

Código:

Dim Archivo As String, Peso As Long
Dim Partes As String

Private Sub Command1_Click()
Dim Puerto As Long
Puerto = Text1.Text
WS.Close
WS.LocalPort = Puerto
WS.Listen
End Sub

Private Sub Command3_Click()
Open Text2.Text For Binary As #1
Archivo = Input(LOF(1), 1)
Close #1
Peso = Len(Archivo)
WS.SendData "Envio|" & Peso
End Sub

Private Sub WS_ConnectionRequest(ByVal requestID As Long)
WS.Close
WS.Accept requestID
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim Datos As String
Dim i As Long

WS.GetData Datos

If Datos = "Manda" Then
MsgBox "manda"
PB.Max = Peso
PB.Min = 1
For i = 1 To Peso
    Partes = Mid(Archivo, i, 100)
    WS.SendData Partes
    PB.Value = i
    i = i + 99
Next
PB.Value = 1
End If
End Sub

Cliente:

Código:

Dim Recibiendo As Boolean, Peso As Long, vPeso As Long
Dim Archivo As String

Private Sub Command1_Click()
Dim IP As String
Dim Puerto As Long
IP = Text1.Text
Puerto = Text2.Text
WS.Close
WS.Connect IP, Puerto
End Sub

Private Sub WS_Connect()
MsgBox "Conecto"
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim Datos As String
Dim vDatos() As String

WS.GetData Datos

If Recibiendo = True Then
    vPeso = vPeso + bytesTotal
    Archivo = Archivo + Datos
    PB.Value = vPeso
    If Peso = vPeso Then
    MsgBox "recibe todo"
    PB.Value = 1
        Open "C:\foto.jpg" For Binary As #1
        Put #1, 1, Archivo
        Close #1
        Archivo = ""
        Recibiendo = False
    End If
    Exit Sub
End If

vDatos = Split(Datos, "|")

If vDatos(0) = "Envio" Then
    Recibiendo = True
    Archivo = ""
    vPeso = 0
    Peso = vDatos(1)
    PB.Max = Peso
    PB.Min = 1
    WS.SendData "Manda"
End If
End Sub

al archivo lo envia correctamente, y este llega bien, se guarda y todo... el problema es q primero se va cargando el progressbar del programa q lo envia, cuando este termina comienza a cargar el q lo recibe, y este cada vez lo hace mas lento...
:/ no entiendo xq es... es de noche tengo sueño y tal vez sea eso... pero x favor si alguno me da una mano se lo agradezco...

P/D: EON se q me vas a retar... pero busuqe tu ejemplo y no lo encuentroooo solo encontre la funcion MID para partir el archivo pero no para el progressbar

SALUDOS