Binaryworld - FormatFullName - Create a full name in the format "LastName, FirstName ... [ VB -> String ]

' Takes a first and last name and converts it to the format LastName, FirstName

Function FormatFullName(ByVal FirstName As String, ByVal LastName As String) As _
  String
  FirstName = Trim$(FirstName)
  LastName = Trim$(LastName)

  If FirstName = "" Then
    ' If they only have a first name, return it.
    FormatFullName = LastName
  ElseIf LastName = "" Then
    ' If they only have a last name, return it.
    FormatFullName = FirstName
  Else
    FormatFullName = LastName & ", " & FirstName
  End If
End Function