Sub Geocoder1_GeocodeDone(Address1() As Address, Tag As Object)
AddressLbl.Text = "Feature: " & Address1(0).FeatureName & ", Thoroughfare: " & _
Address1(0).Thoroughfare & " " & Address1(0).Locality & " " & _
Address1(0).AdminArea & " " & Address1(0).CountryCode
End Sub