VBA Google View

Dim wsGoogle, wsDaten, row, strName, strStreet, strPLZ, strCity, strCountry, strURLParams
'Konstanten bitte anpassen  
Const PATH_DATASHEET = "C:\Daten.xlsx"  
Const PAUSE = 5   'Pause zwischen den Aufrufen (in Sekunden)  
'---------------------------------------------------------  
Const GOOGLE_MAPS_URL = "https://www.google.de/maps/place/"  
'Objekte erstellen  
Set objExcel = CreateObject("Excel.Application")  
Set objIE = CreateObject("InternetExplorer.Application")  
Set objShell = CreateObject("Wscript.Shell")  
'Excel unsichtbar machen  
objExcel.Visible = False
objExcel.DisplayAlerts = False

'InternetExplorer im Vordergrund öffnen  
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")  
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process where Name = 'iexplore.exe'")  
For Each objProcess in colProcessList
	objShell.AppActivate objProcess.Handle
Next
objIE.FullScreen = True
objIE.Visible = True

'Excel-Datensheet öffnen  
Set wb = objExcel.Workbooks.Open(PATH_DATASHEET)
'Tabellenblatt festlegen auf dem die Daten stehen  
Set wsDaten = wb.Sheets(1)

'Für jede Datenzeile ab Zeile 2 (wenn in Zeile 1 Überschriften stehen)  
For i = 2 To wsDaten.UsedRange.Rows.Count
    strName = wsDaten.Range("B" & i).Value  
    strStreet = wsDaten.Range("Z" & i).Value  
    strPLZ = wsDaten.Range("AA" & i).Value  
    strCity = wsDaten.Range("AB" & i).Value  
    strCountry = wsDaten.Range("AC" & i).Value  
    if strStreet <> "" then   
      strURLParams = strStreet
    end if
     if strPLZ <> "" then   
      strURLParams = strURLParams & "+" & strPLZ  
    end if
     if strCity <> "" then   
      strURLParams = strURLParams & "+" & strCity  
    end if
     if strCountry <> "" then   
      strURLParams = strURLParams & "+" & strCountry  
    end if

    objIE.Navigate GOOGLE_MAPS_URL & strURLParams
    Do While (objIE.Busy)
        WScript.Sleep(250)
    Loop
    ' Anzahl an Millisekunden Sekunden warten bevor die neue Adresse aufgerufen wird  
    WScript.Sleep(PAUSE * 1000)
Next
wb.Close False
objExcel.DisplayAlerts = True
objExcel.Quit

Set objExcel = Nothing
Set objIE = Nothing
Set objShell = Nothing
Set objWMIService = Nothing