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 b_googlemaps_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