"Open Site" pr. default

det kan man vist ikke. derfor bruger jeg nedenstående kode:
Dim WshShell, oExec, BtnCode

Set WshShell = WScript.CreateObject("WScript.Shell")

'Open Frontpage
WshShell.Run """C:\Program Files\Microsoft Office\OFFICE11\FRONTPG.EXE"""
WScript.Sleep 500
'key ALT O I
WshShell.Sendkeys "%fi"

Set WshShell = Nothing

lukker