Sub Main Dim txt$ txt$ = "Hello, World!" & vbNewLine & "Here I am!" Msgbox Printer.SetText2RTF(txt$) End Sub