[RESOLVED] ucGMap.ctl (Implementation of the Google-Static-API by Schmidt) ERROR

[cliv]

I try to use ucGMap.ctl from here:

http://www.vbforums.com/showthread.p...=1#post4641473

... but sometimes runs with error

"Runtime Error '5': Invalid Procedure Call or Argument"

Private Function ReadTagContent(sXML As String, Tag As String) As String
Dim Result As String
  Result = Mid$(sXML, InStr(sXML, "<" & Tag & ">") + Len(Tag) + 2)
  Result = Left$(Result, InStr(Result, "</" & Tag & ">") - 1)
  Result = Replace(Replace(Result, vbCr, ""), vbLf, "")
  ReadTagContent = Trim$(Result)
End Function