Binaryworld - ConvertReverseFullName - Convert a reverse name to the "FirstName Last ... [ VB -> String ]

' convert a reversed full name back to the "FirstName LastName" format
'
' for example, ConvertReverseFullName("Smith, John A.") ==> "John A. Smith"

Function ConvertReverseFullName(ByVal ReverseFullName As String) As String
  Dim i As Long

  ReverseFullName = Trim$(ReverseFullName)
  i = InStr(ReverseFullName, ",")
  If i = 0 Then
    ' no comma, just return the argument
    ConvertReverseFullName = ReverseFullName
  Else
    ' exchange first and last name
    ConvertReverseFullName = Mid$(ReverseFullName, _
      i + 1) & " " & Left$(ReverseFullName, i - 1)
  End If

End Function