Das Gegenteil von Trim. lPad und rPad erweitern Strings auf eine bestimmte Länge. Diese Version schneidet zu lange Strings auch ab.

Download udf_pad.bas (V-1.0.0)

Für die Ausgabe der Resultate verwendete ich die Funktion [VBA] print_r().

d lpad("ab", 4)
<String> 'ab  '
 
d lpad("Zürich", 4)
<String> 'Züri'
 
 
d rpad("Bern", 6, "_")
<String> '__Bern'
 
d rpad(123, 6, 0)
<String> '000123'

udf_pad.bas

Attribute VB_Name = "udf_pad"
'-------------------------------------------------------------------------------
'File         : udf_udf_pad.bas
'               Copyright mpl by ERB software
'               All rights reserved
'               http://http://wiki.yaslaw.info/dokuwiki/doku.php/vba/functions/pad
'Environment  : VBA 2007 +
'Version      : 1.0.0
'Name         : lPad, rPad
'Author       : Stefan Erb (ERS)
'History      : 01.10.2014 - ERS - Creation
'-------------------------------------------------------------------------------
Option Explicit
 
'/**
' * Gibt den String iString zurück. Dieser wurde nach links mit dem String iPadString auf eine Länge von iLen Zeichen aufgefüllt.
' * Wenn iString länger als iLen ist, wird der Rückgabewert auf iLen Zeichen gekürzt.
' * @param  String
' * @param  Integer     Neue Länge
' * @param  String      Zeichen mit dem verlängert wird
' * @return Erweiterter oder gekürzter String
' */
Public Function lPad( _
        ByVal iString As String, _
        ByVal iLen As Integer, _
        Optional ByVal iPadString As String = " " _
) As String
    lPad = Left(iString, iLen)
    lPad = lPad & String(iLen - Len(lPad), iPadString)
End Function
 
'/**
' * Gibt den String iString zurück. Dieser wurde nach rechts mit dem String iPadString auf eine Länge von iLen Zeichen aufgefüllt.
' * Wenn iString länger als iLen ist, wird der Rückgabewert auf iLen Zeichen gekürzt.
' * @param  String
' * @param  Integer     Neue Länge
' * @param  String      Zeichen mit dem verlängert wird
' * @return Erweiterter oder gekürzter String
' */
Public Function rPad( _
        ByVal iString As String, _
        ByVal iLen As Integer, _
        Optional ByVal iPadString As String = " " _
) As String
    rPad = Right(iString, iLen)
    rPad = String(iLen - Len(rPad), iPadString) & rPad
End Function