CodeItBetter Programming Another VB Programming Blog

'String Manipulation - How to trim characters from the End of a string
Option Explicit
 
Public Function RTrimChar(ByVal Expression As String, Optional ByVal sTrimChar As String = " ") _
    As String
    Dim iLength As Integer
    iLength = Len(sTrimChar)
    Do While (Right$(Expression, iLength) = sTrimChar)
        Expression = Mid$(Expression, 1, Len(Expression) - iLength)
    Loop
    RTrimChar = Expression
End Function