name$="Shane R. Monroe"
Print "New Padded Name: '" + RSet$(name$,40) + "'"