What sort of text box? Some text boxes by definition will only contain text, and you have not indicated whether you are running the code from Word or Excel, though I assume Excel
A simple Paste command will by default keep the Excel formatting, provided the receptacle can contain it. If you need a receptacle then I would suggest using a rich text content control, then if that is titled TextBox3 the following will work subject to provisos
Sub PasteToWord()
Dim wdApp As Object
Dim wdDoc As Object
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err Then
Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo err_Handler
Set wdDoc = wdApp.Activedocument
wdDoc.SelectContentControlsByTitle("TextBox3").Item(1).Range.Paste
lbl_Exit:
Exit Sub
err_Handler:
MsgBox "The content control 'TextBox3' is not present in the current document", vbCritical
Err.Clear
GoTo lbl_Exit
End Sub
The Clipboard code from your macro is superfluous, and the example assumes that the document is open and active in Word and that the data has been copied to the clipboard.