'for string padding
Dim x As Integer
Dim PadLength As Integer

Function Lpad(MyValue As String, MyPadCharacter As String, MyPaddedLength As Integer)
    'USE: Lpad("123B","0",6)
    Lpad = String(MyPaddedLength - Len(MyValue), MyPadCharacter) & MyValue
    
End Function

Function Rpad(MyValue As String, MyPadCharacter As String, MyPaddedLength As Integer)
    'USE: Rpad("123B","0",6)
    Rpad = MyValue & String(MyPaddedLength - Len(MyValue), MyPadCharacter)
    
End Function