per ottenere il risultato desiderato, ovvero inviare caratteri a un programma, dovrai ottenere l'id del porcesso e, al momento opportuno(nel tuo caso la pressione di un bottone) attivare il programma con quel id e inviargli i carateri.
Esempio(supponendo che il tuo programma si chiami "c:\Gioco.exe"):
class frm1

dim procId as integer

privarte sub frm1_load()
procId=shell("c:\Gioco.exe")'è una funzione che avvia il processo indicato come parametro e ne restituisce l'id
end sub

private sub btnK_clik()
appactive(procId)'attiva il programma con l'id specificato come parametro
my.computer.keyboard.sendkeys("k")'fa lo stesso che fa la routine che hai usato tu
end sub

end class

così facendo invii i caratteri al programma "c:\Gioco.exe" avviato al load del form.