It is a variable that I am displaying to a text box. Since it is not right justifying, all the numbers that follow get out of line if the number is not exactly 6 characters long.
Public Function RightAlign(strSource As String, ByVal CharCount As Long) As String
If CharCount < Len(strSource) Then CharCount = Len(strSource)
RightAlign = Space(CharCount)
RSet RightAlign = strSource
End Function
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.