Stok modülünde, stok grup kod kayıtlarını açmak için dinamik kodlama ve VBScript SendKeys yöntemi birlikte kullanılabilir. Stok modülündeki bir pencerede, aşağıdaki kodları yazmak yeterli olacaktır.
Set WshShell = CreateObject("WScript.Shell")
'Alt + K
WshShell.SendKeys ("%K")
'Stok kod kayıtları
WshShell.SendKeys ("T")
'Stok kod kayıtları
WshShell.SendKeys ("G")
'Enter
WshShell.SendKeys ("{ENTER}")