MapForums

I am a programmer wannabe who does not have a good grasp of code basics, so please bear with me.

From Excel, I am placing pins on the map with a balloon. Each Excel record may or may not include coordinates. Where coordinates are available, I use them, where they are not I use the address.

Here is relevant parts of the code that I have compiled that locates the address:

Dim oApp As MapPoint.Application

<snip>

'Start MapPoint
Set oApp = CreateObject("MapPoint.Application.NA.11")
oApp.Visible = True
Set objMap = oApp.NewMap
Dim oMap As MapPoint.Map
Dim oLoc As MapPoint.Location
Set oMap = GetObject(, "MapPoint.Application").ActiveMap
oMap.Application.Units = geoMiles
oApp.WindowState = geoWindowStateMaximize
oApp.PaneState = geoPaneNone

'Set location type
If IsEmpty(ActiveCell.Range("P1")) = False Then GoTo FindCoordinates Else GoTo FindAddress

<snip>

FindAddress:
On Error GoTo BadData
Set oLoc = oMap.FindAddressResults( _
ActiveCell.Range("H1"), _
ActiveCell.Range("I1"), , _
ActiveCell.Range("J1"), _
ActiveCell.Range("K1"))(1)
oLoc.Goto
Set oPin = oMap.AddPushpin(oLoc, ActiveCell.Range("B1"))
oPin.Highlight = True
oPin.Symbol = 25
oPin.BalloonState = geoDisplayBalloon
oApp.ActiveMap.Saved = True
GoTo LastLine

My code works great, but I want to be able to tell the user the user how good the address match was.

With the current Dim oLoc As MapPoint.Location, I get an error message if I try to use oLoc.ResultsQuality

If I use Dim oLoc as MapPoint.FindResults, then I get a type mismatch for the Set oLoc = oMap.FindAddressResults

What Dim statement do I need to use? Or what other way is there to accomplish my goal?

Thanks

Larry