Get addresses of nearby places thru VB code.

I am trying to get the addresses of Nearby places using vb. This is part of my code:

Dim objMap As MapPoint.Map
Dim objLoc As MapPoint.Location
Dim objStr As MapPoint.StreetAddress
Dim TheNum as Integer
Dim TheTextBox as String

Dim objApp As New MapPoint.Application

'Set up application
Set objMap = objApp.ActiveMap
objApp.Visible = False
objApp.UserControl = True

'Get a location on the map
Set objLoc = objMap.FindResults(123 Street, City, Province).Item(1)

'Find nearby places 2 miles from that location

'number of nearby place 2 miles away
TheNum = objLoc.FindNearby(2).Count

'loop over the number of places
For i = 1 To TheNum


TheTextBox = TheTextBox & objLoc.FindNearby(Me.txtDistance).Item(i).StreetAd dress & VBCRLF

Next

Me.Text1 = TheTextBox


The problem is that this doesn't always return the address. Sometimes it returns a telephone. However, if I does this from the MapPoint front end it has the address.

Anybody out there have an Idea? Thanks in advance.