Il metodo che ti ha suggerito Cteniza è sicuramente più elegante di questo che ti posto, si tratta di creare un file .Doc con dei "Bookmark" in modo da valorizzarli come fossero textbox, ti allego uno snippet
Dim objword As Object 'new Word.Application ' 'New Word.ApplicationClass
objword = CreateObject("Word.Application")
objword.Visible = False
Dim filename As String
filename = txtPercorso.Text.Trim
objword.Documents.Open(filename)
objword.ActiveDocument.Bookmarks.Item("Cliente").Select()
objword.Selection.Text = Cliente
objword.ActiveDocument.Bookmarks.Item("Data").Select()
objword.Selection.Text = Data
objword.ActiveDocument.Bookmarks.Item("Protocollo").Select()
objword.Selection.Text = Protocollo
objword.ActiveDocument.Bookmarks.Item("Reparto").Select()
objword.Selection.Text = Reparto
objword.ActiveDocument.Bookmarks.Item("Sigla").Select()
objword.Selection.Text = Sigla
objword.ActiveDocument.Bookmarks.Item("Ore").Select()
objword.Selection.Text = Ore
Spero di averti aiutato, ciao :-)
E' la passione che genera il progresso :-)