CleanAddress

'NOTE: A Service Reference to the web service must be added to use this sample code.
Private Sub CleanAddress(ByVal address As Address)
    'Declare the required options.
    Dim DefaultCountryCode As [Option] = New [Option]()
    DefaultCountryCode.Name = "DefaultCountryCode"
    DefaultCountryCode.Value = "GB"
    Dim DetectCountry As [Option] = New [Option]()
    DetectCountry.Name = "DetectCountry"
    DetectCountry.Value = "false"
    Dim Country As [Option] = New [Option]()
    Country.Name = "Country"
    Country.Value = ""
    Dim IncludeCountry As [Option] = New [Option]()
    IncludeCountry.Name = "IncludeCountry"
    IncludeCountry.Value = "true"
    'Invoke the web service method.
    Dim proxy As PostcoderSoapClient = New PostcoderSoapClient()
    Dim results As PostcoderOutput = proxy.CleanAddress("your-username", "your-password", address, New [Option]() {DefaultCountryCode, DetectCountry, Country, IncludeCountry})
    '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.Result
        '  Contains the formatted version of the requested address in the Address field,
        '  and a structured version of the address in the RawAddress field.
        'result.MatchLevel
        '  Contains a MatchLevel to indicate how well the address matched to PAF. Possible values are OK_Unchanged, OK_Corrected, NOK_Building, NOK_Street, NOK_Town, NOK_NoMatch
        'result.CountryName
        '  Contains the name of the country the address is in.
    End If
End Sub

Public Sub CleanAddress(address As String)
  Dim rs As ADODB.Recordset
  Set rs = New ADODB.Recordset
  rs.Open "https://webservices.data-8.co.uk/recordset.ashx?service=Postcoder&method=CleanAddressSimple" &
    "&username=your-username" &
    "&password=your-password" &
    "&address=" & address
  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.
      'All the results are available in the first row in the recordset.
      'Results can be extracted from the following fields:
      'Result
      '  Contains the formatted version of the requested address in the Address field,
      '  and a structured version of the address in the RawAddress field.
      'MatchLevel
      '  Contains a MatchLevel to indicate how well the address matched to PAF. Possible values are OK_Unchanged, OK_Corrected, NOK_Building, NOK_Street, NOK_Town, NOK_NoMatch
      'CountryName
      '  Contains the name of the country the address is in.
    End If
  End If
End Sub