Option Explicit
Private Sub Command1_Click()
   Dim ie As Variant
   Set ie = CreateObject("InternetExplorer.Application")
   ie.Height = 480
   ie.Width = 640
   ie.menubar = True
   ie.toolbar = False
   ie.statusbar = False
   ie.resizable = True
   ie.Navigate ("http:\\www.web.de")
   ie.Visible = True
End Sub