' Takes a first and last name and converts it to the format LastName, FirstNameFunction 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 IfEnd Function'###########################################################'#'# This rountime has been brought to you by'# Pragmatic Software Co. Inc, the creators of Defect Tracker,'# the tool of choice for tracking functional specifications,'# test cases and software bugs.'# Learn more at http://www.DefectTracker.com.'# Affiliate program also available at'# http://www.PragmaticSW.com/AffiliateSignup.'#'###########################################################