If everything is being done in Word to start with then why in the world are you creating and instance of Word and creating all the variant variables

Private Sub CommandButton1_Click()
Dim oDoc As Document
Dim oTbl As Table
  Set oDoc = Documents.Add '("C:\Users\Username\Desktop\Template 1.dotx")
  Set oTbl = oDoc.Tables.Add(Range:=Selection.Range, NumRows:=3, NumColumns:=4, DefaultTableBehavior:=wdWord9TableBehavior)
  oTbl.Cell(1).Range.Text = Me.TextBox1.Text
lbl_Exit:
  Exit Sub
End Sub