求求各位高手帮帮我，VB的一个简单的问题！！！万分感谢！

请问怎么用VB获取word文档里面的某一行的内容，然后相应的赋给文本框。我之前是用的代码如下
 Set wDoc = wApp.Documents.Open(App.Path & "\2.doc")
  Dim i As Long
  Dim Data As String
  Data = ""
  For i = 1 To wDoc.Words.Count
  Data = Data & wDoc.Words.Item(i)
  Next i
  Dim Arr As Variant
  Arr = Split(Data, Chr(13))
  If Combo1.Text = "Crushing" And Text1.Text < 4 And Text1.Text <> 0 Then
  Text2.Text = Arr(119)
  Text3.Text = Arr(121)
  Text4.Text = Arr(122)
  ElseIf Combo1.Text = "Crushing" And Text1.Text >= 4 Then
  Text2.Text = Arr(10)
  Text3.Text = Arr(11)
  Text4.Text = Arr(12)
  End If
但是这样运行，太慢了，我的word里面有三百多行？请问有没有简单运行起来快速的方法！！求求各位了！

难道不能一次性获得内容? 显然循环获得字符那一块是非常低效的写法