Const PROFILE = "C:\Documents and Settings\Christian\Application Data\Realtime Soft\UltraMon\Profiles\Default.umprofile"
Const WAIT_NUM_SEC = 5 'number of seconds to wait before applying the profile

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