Private Sub Command1_Click()
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE www.vbarchiv.net", _
  vbNormalFocus
End Sub
 
Private Sub Form_Load()
  'Standard-Browser ermitteln
  Dim sName As String
  Dim sExe As String
 
  sExe = StandardBrowser(sName)
  If sExe <> "" Then
    Text2.Text = IIf(sName = "", "", sName) + sExe
  End If
End Sub

Private Sub Command1_Click()
Shell "" & Text2.Text & "www.vbarchiv.net", vbNormalFocus
End Sub

_____________________________________THX im Vorraus,(...::-=Tobi@s=-::...)