كيف أكتب في الوورد عن طريق الفيجوال بيسك

السلام عليكم 

أخواني ماهي طريقة الطباعة على الوورد من خلال الفيجوال بيسك  

أضفت مارك بوك في الوورد لكن كيف أجعل قيمتها = قيمة تكست بوكس 

 Dim WordApp As New Word.Application
        Dim WordDoc As Word.Document = WordApp.Documents.Open("C:\Desktop\WindowsApplication1\doc.docx")
        WordDoc.Bookmarks.Add("insname", TextBox1.Text)
        WordDoc.Save()
        WordApp.Quit()