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