y eso que yo se lo puse bien, se ve que no se ven bien los post, o no los lee.

he encontrado otro problemin:

 Winsock1.SendData Text3.Text & "@"
  Winsock1.SendData Text1.Text & "/"

en el cliente:

Dim info As String
Winsock1.GetData info
If InStr(info, "/") <> 0 Then
info = Replace(info, "/", vbspace)
RichTextBox1.Text = RichTextBox1.Text & vbNewLine & " Remote User: " & info
Else
Text1.Text = info
End If

pero igualmente:

 Remote User: 192.168.1.102@User

la ip no tendria que aparecer, tendria que ir a text1.text  , esto solo pasa cuando las dos lineas de senddata estan juntas.. porque si una esta en otro sub entonces si funciona bien.. probe seteando info = "" despues de cada ubicacion de la informacion pero sigue el error.. y si borro la linea de senddata & "/" entonces si la ubica en text1.. pero si las dos estan juntas se confunde y termina poniendo las dos en un mismo lugar.. incluso si hay un retardo mediante sleep de 5 segundos