IsUnusableName

'NOTE: A Service Reference to the web service must be added to use this sample code.
Private Sub IsUnusableName(ByVal name As Name)
    'Declare the required options.
    Dim UseRepeatedNameStatus As [Option] = New [Option]()
    UseRepeatedNameStatus.Name = "UseRepeatedNameStatus"
    UseRepeatedNameStatus.Value = "true"
    Dim AllowInitials As [Option] = New [Option]()
    AllowInitials.Name = "AllowInitials"
    AllowInitials.Value = "false"
    'Invoke the web service method.
    Dim proxy As SalaciousNameSoapClient = New SalaciousNameSoapClient()
    Dim results As SalaciousNameAndAddressOutput = proxy.IsUnusableName("your-username", "your-password", name, New [Option]() {UseRepeatedNameStatus, AllowInitials})
    '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
        '  One of the following values indicating the detected status of the supplied `name`:
        '  
        '  * `""` (empty string) - the name is not salacious
        '  * `"IncompleteName"` - not enough name information has been supplied
        '  * `"RandomName"` - the name appears to have been entered by hitting random keys
        '  * `"SalaciousName"` - the name is flagged against our blacklist of known salacious words
        '  * `"RepeatedName"` - the first name is repeated in the last name. This status code is only returned if the `UseRepeatedNameStatus` option is set to `true`.
    End If
End Sub

Public Sub IsUnusableName(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=SalaciousName&method=IsUnusableNameSimple" &
    "&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:
      'Result
      '  One of the following values indicating the detected status of the supplied `name`:
      '  
      '  * `""` (empty string) - the name is not salacious
      '  * `"IncompleteName"` - not enough name information has been supplied
      '  * `"RandomName"` - the name appears to have been entered by hitting random keys
      '  * `"SalaciousName"` - the name is flagged against our blacklist of known salacious words
      '  * `"RepeatedName"` - the first name is repeated in the last name. This status code is only returned if the `UseRepeatedNameStatus` option is set to `true`.
    End If
  End If
End Sub