Du kannst Dir auch selbst eine Funktion schreiben:einen eigenen Befehl .. so wie LTrim (lösche Leerzeichen) genau umgekehrt
Code: Alles auswählen
Function LADD(txt As String) As String
Do
txt = txt & " "
Loop While LEN(txt) < 30
LADD = txt
End Function
Code: Alles auswählen
Sub Main
Msgbox LADD("Das ist der Text")
End Sub
Gruß
Stephan