A la plantilla le debes de agregar campos (insertar _ Campo _ Combinar correspondencia _ Fill-in) en el lugar que quieres que te aparezcan y en el botón le vas a poner algo asi:
Dim Wrd As New Word.ApplicationClass()
Dim Documento As Word.Document
Try
Documento = Wrd.Documents.Open("Ruta del documento\Documento.doc")
'// Se le Asignan a los campos que se encuentran en el archivo word.
Documento.Fields.Item(1).Result.Text = Trim(Textbox1.Text)
Documento.Fields.Item(2).Result.Text = Trim(Textbox2.Text)
Documento.Fields.Item(3).Result.Text = Trim(Textbox3.Text)
Wrd.Visible = True ' //Se Abre el documento WORD
Catch Exp As Exception
MsgBox(Exp.Message, MsgBoxStyle.Critical, "Error")
End Try
En el explorador de soluciones en referencias agrega la de Office y la de Word.
A mi me funcionó así, si encuentras algo mejor, me lo compartes...