in this code
you can write in textbox then get the result in word document
Set wrdapp = New Word.Application
With wrdapp
.Documents.Add
.ActiveDocument.Content.Font.Bold = True
.ActiveDocument.Paragraphs.Alignment = wdAlignParagraphRight
.ActiveDocument.Content.Font.Color = wdColorRose
.ActiveDocument.Content.Font.Italic = True
.ActiveDocument.Content.Font.Name = "Tahoma"
.ActiveDocument.Content.Font.Size = 22
.ActiveDocument.Content.Text = Text1.Text
.ActiveDocument.Content.InsertAfter Text:="Good Luck"
.Visible = True
End With