If Envio = True Then 
    Llegada = Llegada & data
    If Len(Llegada) = lenFile Then
        Open Dir1.Path & "\" & nombreRecibido For Binary As #1
        Put #1, , Llegada
        Close #1
        Llegada = ""
        Envio = False
        ws.SendData "ok recibido"
    End If
    Exit Sub
End If
vData = Split(data, "|")
 
Select Case vData(0) 'Empezamos los casos
Case "subir" 'Recibe nombre y tamaño del archivo
lenFile = vData(1)
nombreRecibido = vData(2)
Envio = True
data = ""
ws.SendData "SendFile"
Exit Sub
 

Case "SendFile" 'Enviamos el archivo a subir
    On Error Resume Next
    Frm_File.pb.Value = 0
 
    vIndex = Split(Lv.SelectedItem.Key, "|")
    Dim Send As String
 
    Open RutaSubida For Binary As #1
    Dim Todo As String
        Todo = Space(LOF(1))
        Get #1, , Todo
    Close #1
 
    Frm_File.pb.Max = Len(Todo)
 
    For o = 1 To Len(Todo) 'Leemos el archivo de 10 en 10 bit's
        Dim Porciento As Integer 'Para que apareza el porcentaje de descarga
        Porciento = o / Len(Todo) * 100
        Frm_File.lblEstado.Caption = "Subido:" & Porciento & "%"
        Parte = Mid(Todo, o, 10)
        o = o + 9
        Ws(vIndex(0)).SendData Parte 'Enviamos los 10 bit's
        Frm_File.pb.Value = o  'Para hacer avanzar la barra de progreso
        Sleep 1
    Next o
 
 
Case "ok recibido" 'Nos indica q el archivo a llegado
    MsgBox "Archivo enviado correctamente.", vbOKOnly
    Frm_File.lblEstado.Caption = ""
    Frm_File.pb.Value = 0