VB6 中打开word文件并读出文件中某几行的内容，在text文本框中显示

Option Explicit
Dim wApp As New Word.Application
Dim wDoc As Word.Document
Private Sub Command1_Click()
  Set wDoc = wApp.Documents.Open("C:\1.doc")
  Dim i As Long
  Dim Data As String
  Data = ""
  For i = 1 To wDoc.Words.Count
    Data = Data & wDoc.Words.Item(i)
  Next
   Dim Arr As Variant
  Arr = Split(Data, Chr(13))
   If UBound(Arr) > 0 Then Text1.Text = Arr(1) '如果有第二行则读取第二行
   If UBound(Arr) > 3 Then Text1.Text = Arr(4) '如果有第五行则读取第五行
   wDoc.Close
  wApp.quit
  Set wDoc = Nothing
  Set wApp = Nothing

 
End Sub