runtime error 6n overflow

[CHEECO]

Hello all. I have been using google map viewer bay James bell for some time now, and for some reason I am now get a runtime error6 overflow.

This line of the below code is highlited in yellow

MyError = Err.Number - vbObjectError - 513

Option Compare Database
Dim WithEvents Map As GoogleMaps
Private Sub Command1_Click()
On Error GoTo ErrCatch
    Map.StartMap
    Map.GeocodeAddress address, All
    Exit Sub
ErrCatch:
    Dim MyError As Integer
    MyError = Err.Number - vbObjectError - 513
    
    If MyError = 602 Then
        MsgBox "The Address you entered could NOT be found." & vbNewLine & _
            "Please enter another address", vbOKOnly, "NO ADDRESS FOUND"
    End If
End Sub
Private Sub Form_Load()
    Set Map = New GoogleMaps
    Set Map.SetWebBrowser = Me.WebBrowser0
End Sub

Thank-you

Cheeco

[John_G]

You may be exceeding the range of values for Integer. Try Dim MyError as Long

[CHEECO]

I tried the Dim MyError as Long and that did not work. The "Take me there" button does not work at all.

[John_G]

I think the Dim MyError as Long actually did work, because the overflow error went away. But the reason you were getting that error in the first place was because the error handler was catching an error - what it was you don't know yet, but you can be sure it was caused by line 3 or 4 of the procedure.

The "Take me there" button does not work at all.

You don't really know what it's doing. Your code has error handling - as it should - but if you get any error other than 602, you won't know it because no error message is produced. You need to add an else part to the error handler to cover any other error that may occur.

[CHEECO]

I am having no luck with it. I have attached a copy of the file. I reinstalled Office and now I am getting the "To help protect your security, you web browser has restricted this file from showing active content that could access your computer" error again. I am wondering if that is creating the problem.

[John_G]

Sounds like your browser security level is set too high. Try lowering it to allow active content to run.

I think you may have an error in your file googlemaps.html. When I try to run it, it gives me a script error that says "Google" is not defined, and says it is in that file ("url"). I suspect that error has a cascade effect to cause the other ones.

Sorry I can't help much more than that, because I know very little about scripting.