' 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