Here is some sample code to interact with MapPoint
Code:
Dim objApp As MapPoint.Application
Dim objMap As MapPoint.MAP
Dim objFind1 As MapPoint.FindResults
Dim objFind2 As MapPoint.FindResults
Dim objLoc1 As MapPoint.Location
Dim objLoc2 As MapPoint.Location
Set objApp = CreateObject("MapPoint.Application")
objApp.Visible = True
Set objMap = objApp.ActiveMap
Set objFind1 = objMap.FindAddressResults("1234 Any Street", "Some City", , "NY", "12345")
Set objLoc1 = objFind1(1)
Set objFind2 = objMap.FindAddressResults("1234 That Street", "Other City", , "NY", "12345")
Set objLoc2 = objFind2(1)
Debug.Print "objLoc1.StreetAddress.Value = " & objLoc1.StreetAddress
Debug.Print "objLoc1.Latitude = " & objLoc1.Latitude
Debug.Print "objLoc1.Longitude = " & objLoc1.Longitude
Debug.Print "objLoc1.Type = " & objLoc1.Type
Debug.Print "objFind1.ResultsQuality = " & objFind1.ResultsQuality
Debug.Print "_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_"
Debug.Print "objLoc2.StreetAddress.Value = " & objLoc2.StreetAddress
Debug.Print "objLoc2.Latitude = " & objLoc2.Latitude
Debug.Print "objLoc2.Longitude = " & objLoc2.Longitude
Debug.Print "objLoc2.Type = " & objLoc2.Type
Debug.Print "objFind2.ResultsQuality = " & objFind2.ResultsQuality
Debug.Print "Distance = " & objMap.Distance(objLoc1, objLoc2) 'As the Crow Flies
Set objApp = Nothing
Set objMap = Nothing
Set objFind1 = Nothing
Set objLoc1 = Nothing
Set objFind2 = Nothing
Set objLoc2 = Nothing