Bueno estoy haciendo un troyano y el cliente y el servidor conectan, lo que pasa esque el cliente envia este codigo.

FrmClient.WS.SendData Text1.Text & "|" & Text2.Text & "|" & Combo1.Text

y el servidor lo recibe asi

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Dim data() As String
ws.GetData datos
data = Split(datos, "|")
Select Case data(0)
Case "Mensajes"
If data(3) = "Critical" Then
MsgBox data(0), vbCritical, data(1)
ElseIf data(3) = "Information" Then
MsgBox data(0), vbInformation, data(1)
End If
End Select
End Sub

El servidor deberia lanzar un mensaje con los valores de las arrays pero no se porque no va... ¿Alguien sabe porque no funciona? El cliente y el servidor conectan bn. Porque funciones como enviar... "Hola" a uno y el otro recibirlo lo hacen.

Se me olvido el caracter de despues de Mensajes

asi seria lo correcto
"Mensajes|" & Text1.Text & "|" & Text2.Text & "|" & Combo1.Text

no problem, si tienes alguna duda mas ya sabes