Dim wrd As New Word.Application
        Dim file As String = Application.StartupPath + "\winword.doc"
        wrd.Documents.Open(file)
        wrd.Visible = True
        While Me.CheckBox1.Checked
            Try
                For Each doc As Word.Document In wrd.Documents
                    Debug.WriteLine(doc.Name)
                Next
                Application.DoEvents()
                System.Threading.Thread.Sleep(500)
            Catch ex As System.Runtime.InteropServices.COMException
                Debug.WriteLine(ex.Message)
                Exit While
            End Try
        End While