Extracting Text from word TextBox

[Silly Star]

Dear Helpers

i have been working on word Document files.

each document has same text format.

i m using the code below to extract text from it,

 

Dim sFileName As String 'Name of files within the folder will be stored 
Dim i As Integer 'This will count the files read***
Dim wrd As Word.Application
Dim wrdCount As Long 'Number of characters within the file
    'Get the first file with extension "DOC"  ***
                sFileName = Dir$("C:\Virology\*.DOC") '***
    Do While sFileName <> "" '***
            Set wrd = New Word.Application 'Create obj of word application
            wrd.Visible = False
            wrd.Documents.Open "C:\Virology\" & sFileName
            wrdCount = wrd.Documents(1).Characters.Count
           Text1.Text = Text1.Text & vbCrLf & i & wrd.Documents(1).Range(0, wrdCount).Text
            wrd.Documents(1).Close
            Set wrd = Nothing
           sFileName = Dir$ '***
           i = i + 1
    Loop

This works good for all the characters in the document but the problem rises when word textbox appears in the document.