''
'' FF_RSET
'' Return a string containing a right-justified (padded) string.
''
'' If sPadCharacter is null (empty) or is not specified, then the function
'' pads string_expression with space characters to the left. Otherwise,
'' the function pads the string with the first character of sPadCharacter.
''
Function FF_RSet( ByRef sMainString As String, _
ByRef nStringLength As Integer, _
ByRef sPadCharacter As String = " " _
) As String
Dim s As String
s = String( nStringLength, Asc(sPadCharacter, 1) )
Mid( s, nStringLength-Len(sMainString)+1, Len(sMainString) ) = sMainString
Function = s
End Function