Did you try the example from the Help file?

Sub FindAddressSearch()
Dim objApp As New MapPoint.Application
Dim objFindResults As MapPoint.FindResults

'Set up application
objApp.Visible = True
objApp.UserControl = True

'Output first result of find search
Set objFindResults = objApp.ActiveMap.FindAddressResults("One Microsoft Way", "Redmond", , "WA", , geoCountryUnitedStates)
MsgBox "The first item in the find list is: " _
+ objFindResults.Item(1).Name

End Sub

__________________