Cacher is the code snippet organizer for pro developers

Private Function PadRight(ByVal TheString As String, ByVal Format As String, _
                         Optional ByVal Truncate As Boolean) As String
    If (Len(TheString) < Len(Format)) Then
        PadRight = TheString & String(Len(Format) - Len(TheString), Left(Format, 1))
    Else
        If Truncate Then
            PadRight = Right(TheString, Len(Format))
        Else
            PadRight = TheString
        End If
    End If
End Function