teclas en vbs

necesito un softwareque capture las teclas pero en codigo vbs.

ej:


:::::::::::::::::::::::::::::::
set sh=WScript.CreateObject("WScript.Shell")
sh.SendKeys "{UP}" 'VBS_1
WScript.Sleep 2000                                  'VBS_1 
sh.SendKeys "{DOWN}" 'VBS_1
WScript.Sleep 2000                                  'VBS_1 
sh.SendKeys "{UP}" 'VBS_1
WScript.Sleep 2000                                  'VBS_1 
sh.SendKeys "{TAB}" 'VBS_1
WScript.Sleep 2000                                  'VBS_1 
sh.SendKeys "{TAB}" 'VBS_1
WScript.Sleep 2000                                  'VBS_1 
sh.SendKeys "{TAB}" 'VBS_1
WScript.Sleep 2000                                  'VBS_1 
sh.SendKeys "{ENTER}" 'VBS_1
WScript.Sleep 2000                                  'VBS_1
::::::::::::::::::::::::::::::::.

PEro solo he podido encontrar softs que puedan capturar teclas en codigo real o en otros tipos de codigos.

Alguien conoce eso?

Gracias