try using the findresults function on the ActiveMap. Read the documentation ( last point programming with mappoint ). If you have your references checked, press F1 to get more infos

Dim objApp As New MapPoint.Application
Dim objFindResults As MapPoint.FindResults

'Anwendung einrichten
objApp.Visible = True
objApp.UserControl = True

'Erstes Ergebnis der Suche ausgeben
Set objFindResults = objApp.ActiveMap.FindResults("Seattle, WA")
MsgBox "Das erste Element in der Ergebnisliste lautet: " _
+ objFindResults.Item(1).Name


Greetings,
Syd