<code>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</code>

<code>Dim strURL As String
 
strULR="www.mcdonalds.de"
Call ShellExecute(Me.hWnd, "Open", strURL, "", "", vbMaximizedFocus)</code>