Create initial implementation of SQL Formatter

This (work in progress) is a VBA port of https://github.com/doctrine/sql-formatter intended to format SQL queries with better indenting and layout to improve readability in version control. #426

Version Control.accda.src/modules/clsConcat.cls

@@ -219,6 +219,25 @@ Public Function MidStr(lngStart As Long, Optional lngLength As Long = -1) As Str
 End Function
 
 
+'---------------------------------------------------------------------------------------
+' Procedure : RTrim
+' Author    : Adam Waller
+' Date      : 8/14/2023
+' Purpose   : Trim trailing whitespace from content
+'---------------------------------------------------------------------------------------
+'
+Public Function RTrim(Optional strTrimChars As String = " ")
+    Do
+        If Me.Length < Len(strTrimChars) Then Exit Do
+        If Me.RightStr(Len(strTrimChars)) = strTrimChars Then
+            Me.Remove Len(strTrimChars)
+        Else
+            Exit Do
+        End If
+    Loop
+End Function
+
+
 '---------------------------------------------------------------------------------------
 ' Procedure : Right
 ' Author    : Adam Waller