Simple code to display street address?

Sub GPS1_LocationChanged (Location1 As Location)
Geocoder.GetFromLocation(Location1.Latitude,Location1.Longitude,5,Null)
End Sub

Sub gec_GeocodeDone(Results() As Address, Tag As Object)
Dim place As String = ""
If Results.Length>0 Then
   For i=0 To Results.Length-1
      If Results(i).AddressLines.Size>0 Then
         For j = 0 To Results(i).AddressLines.Size - 1
            place = place & CRLF & Results(i).AddressLines.Get(j)
         Next
      End If
   Next
Else
   Msgbox("GetFromLocation", "No Address matched the Latitude and Longitude")
End If
   
addlbl.text = place 

End Sub

'
'need parameter for the initialize call in Activity_Create:
Geocoder.Initialize
' should be:
Geocoder.Initialize("Geocoder")

' spelling error:
'
Sub gec_GeocodeDone(Results() As Address, Tag As Object)
'
'should be:
Sub geocoder_GeocodeDone(Results() As Address, Tag As Object)