VB查找文本中文字 并取出后面的文字

Private Sub Command1_Click()
Dim AR() As String, AR2() As String
sTxt = "2 01 01 00 00 00 00 00 00 00 F4 44 0C 00 08 01 29 01 03 00 00 00 00 00 00 00 F4 44 0C 00 08 01 D3 01 04 00 00 00 00 00 00 00 F4 44 0C 00 08 01 2A 01 06 00 00 00 00 00 00 00 F4 44 0C 00 08 01"
AR = Split(sTxt, "D3 01")
L = LBound(AR) + 1
U = UBound(AR)
For i = L To U
tmp = Trim(AR(i))
AR2 = Split(tmp, " ")
'输出
Me.Print AR2(LBound(AR2)) & Space(2);
Next i
End Sub

如果是你这种格式的数据，我有一个办法，不知道合不合你的意，：将这段数据存为一个文本文件，比如C:\text.txt 然后用下面的代码得到 D3 01 后面的数据
.
Private Sub Command1_Click()
Dim da As String, da1 As String
Open "C:\text.txt" For Input As #1
Do Until EOF(1)
Line Input #1, da
If Left(da, 5) = "D3 01" Then
da1 = Mid(da, 7, 2)
MsgBox da1 & " 就是你想要的数据"
Exit Do
End If
Loop
End Sub

上面的改进版