CleanName

'NOTE: A Service Reference to the web service must be added to use this sample code.
Private Sub CleanName(ByVal name As Name)
    'Declare the required options.
    'Invoke the web service method.
    Dim proxy As NameCleansingSoapClient = New NameCleansingSoapClient()
    Dim results As NameCleansingOutput = proxy.CleanName("your-username", "your-password", name, 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.Name
        '  A tidied version of the supplied `name`
        'result.Gender
        '  The gender that has been identified from the name. This can be one of the following values:
        '  
        '  * `Male` - the name is almost always male, e.g. "Mark"
        '  * `Female` - the name is almost always female, e.g. "Lucy"
        '  * `Usually_Male` - the name is usually male but can be female, e.g. "Alex"
        '  * `Usually_Female` - the name is usually female but can be male, e.g. "Carroll"
        '  * `Unknown` - we do not know the gender of this name, or it is ambiguous
        'result.FormalSalutation
        '  The mode of address that should be used for this person in a formal situation.
        'result.InformalSalutation
        '  The mode of address that should be used for this person in an informal situation.
    End If
End Sub

Public Sub CleanName(title As String, forename As String, middleName As String, surname As String)
  Dim rs As ADODB.Recordset
  Set rs = New ADODB.Recordset
  rs.Open "https://webservices.data-8.co.uk/recordset.ashx?service=NameCleansing&method=CleanNameSimple" &
    "&username=your-username" &
    "&password=your-password" &
    "&title=" & title &
    "&forename=" & forename &
    "&middleName=" & middleName &
    "&surname=" & surname
  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:
      'Name
      '  A tidied version of the supplied `name`
      'Gender
      '  The gender that has been identified from the name. This can be one of the following values:
      '  
      '  * `Male` - the name is almost always male, e.g. "Mark"
      '  * `Female` - the name is almost always female, e.g. "Lucy"
      '  * `Usually_Male` - the name is usually male but can be female, e.g. "Alex"
      '  * `Usually_Female` - the name is usually female but can be male, e.g. "Carroll"
      '  * `Unknown` - we do not know the gender of this name, or it is ambiguous
      'FormalSalutation
      '  The mode of address that should be used for this person in a formal situation.
      'InformalSalutation
      '  The mode of address that should be used for this person in an informal situation.
    End If
  End If
End Sub