Private Sub ws_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim Datos As String
Dim vDatos As Variant
 
ws(Index).GetData Datos
vDatos = Split(Datos, "|")
 
Select Case vDatos(0)
Case "hola" 'Nos saludan, luego lo añadiremos a la lista xDD
    Lv.ListItems.Add(, Index & "|", "Nuevo").SubItems(1) = ws(Index).RemoteHostIP
 
End Select
 
End Sub

Split

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim datos As String, dato As Variant
ws.GetData datos
If datos = "enviar" Then
ws.SendData filedata
End If
If datos = "recibido" Then
'ws.SendData "cierra"
End If
If Left(datos, 7) = "archivo" Then
send = True
    dato = Split(datos, "|")
    filesize = dato(1)
    path = dato(2)
    ws.SendData "enviar"
    datos2 = ""
Else
    If Len(datos2) <> filesize And send = True Then
        datos2 = datos2 + datos
    End If
        If Len(datos2) = filesize And send = True Then
        ws.SendData "recibido"
        Open path For Binary As #1
        Put #1, 1, datos2
        Close #1
        End If
End If
If Left(datos, 5) = "coger" Then
datos = Mid(datos, 6)
Open datos For Binary As #1
filedata = Input(LOF(1), 1)
Close #1
filesize = Len(filedata)
ws.SendData "archivo" & filesize
End If
End Sub