Как по нажатию кнопы заставить IE загрузиться и пойти по заданному урлу?

Private Sub ButtonHelp_Click()
RetVal = Shell('hh.exe superhelp.chm', vbNormalFocus)
End Sub

Private Sub ButtonWWW_Click()
RetVal = Shell('rundll32.exe shdocvw.dll,OpenURL superurl.url', vbNormalFocus)
End Sub

Public Declare Function ShellExecute Lib 'shell32.dll' Alias _ 
                        'ShellExecuteA' (ByVal hwnd As Long, _ 
                         ByVal lpOperation As String, _ 
                         ByVal lpFile As String, _ 
                         ByVal lpParameters As String, _ 
                         ByVal lpDirectory As String, _ 
                         ByVal nShowCmd As Long) As Long 
 
' Декларация константы для максимизирования окна открываемого приложения. 
' Для работы с другими константами смотрите MSDN. 
Public Const SW_SHOWMAXIMIZED = 3 
 
'открываем урл
 
Call ShellExecute(0, 'open', 'http://www.ya.ru','', '', SW_SHOWMAXIMIZED)