' 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


The Best Mechanical Keyboards For Programmers: Where To Find Them
When it comes to programming, a good mechanical keyboard can make all the difference. Naturally, you would want one of the best mechanical keyboards for programmers. But with so many