Imports System

Imports System.Text.RegularExpressions

​

Public Module Module1

​

    Public Sub Main()

        Dim samples As String() = {

            "John Smith",

            "John A. Smith",

            "Mr. John Smith",

            "Mr. John A. Smith",

            "Jean-Claude Van Damme"

        }

​

        Dim regex As New Regex("(?:(?:mr\.|miss|mrs|ms)\s+)?(\S+).*(?<=\s)(\S+)$", RegexOptions.IgnoreCase)

​

        For Each sample In samples

            Dim converted As String = regex.Replace(sample, "$2, $1")

            Console.WriteLine("{0} => {1}", sample, converted)

        Next

    End Sub

​

End Module

​