在文本框输入word文件名，然后打开相应的word文件

Imports word = Microsoft.Office.Interop.Word
Module Module1

    Sub Main()
        
        Dim wd As New word.Application
        wd.Visible = True
        Dim doc As word.Document = wd.Documents.Open(TextBox1.Text)
    End Sub

End Module