Option Explicit

Private Explorer As SHDocVw.InternetExplorer

Private Sub Form_Load()
  With Combo1
    .Clear
    .AddItem "Das Web"
    .AddItem "Seiten auf Deutsch"
    .AddItem "Seiten aus Deutschland"
    .AddItem "Seiten aus der Schweiz"

    .ListIndex = 0
  End With

  Text1.Text = """Visual Basic"""
End Sub

Private Sub cmdSuchen_Click()
  Dim strNavigate As String

  Select Case Combo1.ListIndex
    Case 0  '"Das Web"
      strNavigate = "www.google.de/search?hl=de&q=" & Text1.Text

    Case 1  '"Seiten auf Deutsch"
      strNavigate = "http://www.google.de/search?hl=de" & _
            "&meta=lr%3Dlang_de&q=" & Text1.Text

    Case 2  '"Seiten aus Deutschland"
      strNavigate = "http://www.google.de/search?hl=de" & _
            "&meta=cr%3DcountryDE&q=" & Text1.Text

    Case 3  '"Seiten aus der Schweiz"
      strNavigate = "http://www.google.ch/search?hl=de" & _
            "&meta=cr%3DcountryCH&q=" & Text1.Text
  End Select

  Set Explorer = New SHDocVw.InternetExplorer
  Explorer.Navigate strNavigate
  Explorer.Visible = True
End Sub