[Resolvido]Dúvida Formulário Com Geolocalização Google Maps

OLÁ PESSOAL!

Gostaria de uma grande ajuda. Fiz um formulário para localização via Google Maps. e pintou uma dúvida que não estou conseguindo resolver. Postei as telas do Formulário|Tabela e do "erro" que aparece no VB. Espero que me ajudem.






IMPORTANTE: Quando clico no Evento: AOCLICAR, botão: "cmdVisualizarGeoMap" descrito no código, gera o erro neste linha:

"strLinkURL = Left(strLinkURL, Len(strLinkURL) - 1)"

Fica dizendo que o Argumento ou chamada é inválida...

SEGUE O CÓDIGO PARA FACILITAR:
******************************
Dim striLinkURL As String
Dim StrPath As String
Dim strAddr() As String
Dim i As Integer

StrPath = "http://maps.google.com/maps?"

strLink = Me.cboCLIENTE & " " & _
         Me.txtENDEREÇO & " " & _
         Me.txtNUMERO & " " & _
         Me.txtBAIRRO & " " & _
         Me.txtCIDADE & " " & _
         Me.txtESTADO & " " & _
         Me.txtCEP & " " & _
         Me.txtZONA

strAddr = Split(strLinkURL, " ", , vbTextCompare)

strLinkURL = ""
For i = LBound(strAddr()) To UBound(strAddr())
   strLinkURL = strLinkURL & strAddr(i) & "+"
Next i

strLinkURL = Left(strLinkURL, Len(strLinkURL) - 1)

Me.cmdVisualizarGeoMap.HyperlinkAddress = StrPath & "q=" & strLinkURL
******************************

Atenciosamente,

C L SOUZA

Já viu esse tópico?
https://www.maximoaccess.com/t20249-cadastrar-endereco-e-logar-no-google-maps?highlight=google

PREZADO, DEI UMA OLHADA NO POST DE ARQUIVO MODELO E FIZ UMAS ADAPTAÇÕES E FUNCIONOU. SEGUE O CÓDIGO PARA SUA APRECIAÇÃO E DOS DEMAIS COLEGAS DO FÓRUM.

************************
Private Sub cmdVisualizarGeoMap_Click()
Dim striLinkURL As String
Dim StrPath As String
Dim strAddr() As String
Dim i As Integer
   
   
   Call FollowHyperlink("http://www.maps.google.com/maps?q=" & ([txtENDEREÇO] & ", " & [txtNUMERO] & " " & [txtBAIRRO] & " " & [txtCIDADE] & " " & [txtESTADO] & " " & [txtCEP]))
'
strAddr = Split(strLinkURL, " ", , vbTextCompare)

'ROTA DE LOCALIZAÇÃO
strLinkURL = "saddr=via COLE AQUI SEU ENDEREÇO &daddr="
strLinkURL = ""
For i = LBound(strAddr()) To UBound(strAddr())
   strLinkURL = strLinkURL & strAddr(i) & "+"
   
   Next i
'
End Sub
************************

Um grande abraço a todos.

C L SOUZA

Valeu pelo rerorno