我刚进这个论坛，囊中羞涩～～，给不了多少分
请大家不要嫌弃啊！！！

帮忙顶一下
请高人指点一下呀，

你输入数据的时后应该在正文的开头和结尾加上标记
例子: $李小龙$     %英文名%                 #地址#

这样就可以区分下来。。

用 MID 命令吧。。。。

Private Sub Command1_Click()
Dim s, N, E, A As String

s = "$李小龙$     %英文名%                 #地址#"

For i = 1 To Len(s)
    If Mid(s, i, 1) = "$" Then
        For t = i + 1 To Len(s)
            If Mid(s, t, 1) <> "$" Then
                N = N & Mid(s, t, 1)
            Else
                MsgBox N
                Exit Sub
            End If
        Next t
    End If
Next i

End Sub

你把上面代码例子的"$"全部换成"%" 就能读出英文名了

再给个思路：

Private Sub Command3_Click()

  Search = "地址"
  Dim willSel As Integer
  Dim Where2
  Dim StartMe  As Integer
  Text3.SetFocus
  Where2 = InStr(sCount, Text3.Text, Search)
  sCount = Where2 + 1 '关键字选两个，这里就要+1
Text3.SelStart = Where2 + 1
Text3.SelLength = 6
Text1.Text = Text3.SelText
Text1.Text = Replace(Text1.Text, vbCrLf, "")
Text2.Text = Text2.Text + Text1.Text + vbCrLf
Text1.Refresh
Text2.Refresh
i = i + 1
Text1.SetFocus
End Sub

－－－－－－－－
为了好调试，我用了三个TEXTBOX，其中先将TXT内容读入text3.text中，text1.text为过渡显示
text2.text为结果 （注意，text3.text的Multline属性为True)

想办法把Text3.SelLength = 6 其中的6换成要选择内容长度的变量就可以了
(思路和上面代码相同，只是Search = "地址"改为search2= vbcrlf)