Private 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
 
Private Sub Command1_Click()
      Dim result&
      Dim leer As String
      Dim mystring As String
      Dim thenumber As String
      Dim Street As String
 
      leer = "%20"
      mystring = v_Strasse
      thenumber = ""
      Street = ""
 
      For a = 1 To Len(mystring)
            If Asc(Mid(mystring, a, 1)) < 58 And Asc(Mid(mystring, a, 1)) > _
              46 Then _
                thenumber = thenumber & Mid(mystring, a, 1)
            If Asc(Mid(mystring, a, 1)) > 58 Or Asc(Mid(mystring, a, 1)) <= _
              46 Then _
                Street = Street & Mid(mystring, a, 1)
      Next
 
      n0rt = Replace(v_Ort, " ", "%20")
 
 
      result = ShellExecute(Me.hwnd, "Open", _
             "http://maps.google.de/maps?f=q&source=s_q&hl=de&geocode=&q=" & _
             Chr(34) & Street & leer & thenumber & leer & v_Plz & leer & nOrt & _
             Chr(34), "", App.Path, 1)
End Sub