On Error GoTo Ende
    Dim shellwert As Double
    shellwert = Shell("C:\Programme\Internet Explorer\Iexplore.exe", _
      vbMaximizedFocus)
    SendKeys "www.vbarchiv.de"

On Error GoTo Ende
    Dim shellwert As Double
    shellwert = Shell("C:\Programme\Internet Explorer\Iexplore.exe", _
      vbMaximizedFocus)
    SendKeys "w"
    SendKeys "w"
    SendKeys "w"
    SendKeys "."
    SendKeys "v"
    SendKeys "b"
    Sendkeys"a"
usw...

Press any key to continue or any other key to quit...