Take a look at the sendkeys methode in the WScript object.
Something like:

oShell = Createobject("WScript.Shell")
oShell.AppActivate("Notepad")
oShell.sendkeys("This is a test!")