Altere o trecho conforme abaixo:

'define XML and HTTP components
Dim googleResult As New MSXML2.DOMDocument60
Dim googleService As New MSXML2.XMLHTTP60
Dim oNodes As MSXML2.IXMLDOMNodeList
Dim oNode As MSXML2.IXMLDOMNode

Obs.: Em referencias certificar que Microsoft Xml,v6.0 (msxml6.dll) esteja habilitada

Ao informar o endereço na planilha cad Cliente, não utilize acentos ou caracteres não reconhecidos pelo sistema americano (por exemplo ç "c cedilha")

Reinaldo, boa tarde.
Agora deu certo, muito obrigado.