Frage wie kann man eine Url öffnen

Private 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

Private Sub Form_Load()
 Dim Result&
 Result = ShellExecute(Me.hwnd, "Open", _
 "http://www.google.de", "", App.Path, 1)
End Sub