Geocode

'NOTE: A Service Reference to the web service must be added to use this sample code.
Private Sub Geocode(ByVal number As String)
    'Declare the required options.
    'Invoke the web service method.
    Dim proxy As TelephoneGeocodingSoapClient = New TelephoneGeocodingSoapClient()
    Dim results As TelephoneGeocodingOutput = proxy.Geocode("your-username", "your-password", number, New [Option](-1) {})
    'Check that the call succeeded, and show the error message if there was a problem.
    If (results.Status.Success = false) Then
        MessageBox.Show(("Error: " + results.Status.ErrorMessage))
    Else
        'TODO: Process method results here.
        'Results can be extracted from the following fields:
        'result.Results
        '  A list of matching locations that could contain the supplied telephone number, and their associated details.
        '  
        '  Each result in the list contains the following properties:
        '  
        '  * `PostcodeSector` - the postcode sector that may contain the supplied telephone number
        '  * `Probability` - the percentage probability that this is the correct result
        '  * `Locations` - a list of the locations that are part of this postcode sector
        'result.Confidence
        '  Indicates the confidence level in the results
    End If
End Sub

Public Sub Geocode(number As String)
  Dim rs As ADODB.Recordset
  Set rs = New ADODB.Recordset
  rs.Open "https://webservices.data-8.co.uk/recordset.ashx?service=TelephoneGeocoding&method=GeocodeSimple" &
    "&username=your-username" &
    "&password=your-password" &
    "&number=" & number
  If rs.MoveFirst Then
    If rs.Fields(0).Name = "Success" And rs.Fields(0).Value = false Then
      MsgBox "Error: " & rs.Fields(1)
    Else
      'TODO: Process method results here.
      'Each result is available in a different row in the recordset.
      'Results can be extracted from the following fields:
      'PostcodeSector
      'Probability
      'All the results are available in the first row in the recordset.
      'Results can be extracted from the following fields:
      'Confidence
      '  Indicates the confidence level in the results
    End If
  End If
End Sub