' reverse a full name'' for example: ReverseFullName("John A. Smith") ==> "Smith, John A."Function ReverseFullName(ByVal FullName As String) As String Dim i As Long ' search for the last space FullName = Trim$(FullName) i = InStrRev(FullName, " ") If i = 0 Then ' no space, just return the argument ReverseFullName = FullName Else ReverseFullName = Mid$(FullName, i + 1) & ", " & Left$(FullName, i - 1) End IfEnd Function
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
