Const SHORTCUT = "C:\Users\Christian\AppData\Roaming\Realtime Soft\UltraMon\3.0.10\Shortcuts\Notepad.umshortcut"
Const WAIT_NUM_SEC = 5 'number of seconds to wait before running the shortcut

Set util = CreateObject("UltraMon.Utility")
util.Sleep WAIT_NUM_SEC * 1000
util.Run SHORTCUT