Vb如何获取TXT中指定字符到另一指定字符之间的内容

我建议你掌握VB的Instr()函数:
我举个例子，你应该能体会并应用；
Dim s1 as strinh
Dim L as integer
s1 ="DA14 X25 TR25"
L = Instr(s1,"TR")

Print L
显示10
Instr(s1,"TR") --- 在字符串变量S1中，从左开始寻找“TR”，首先出现的位置。

有了这个函数，再利用VB的Left()、Mid()、Right()等函数，应该可以解决你的问题了。

注意，你的这个文本里有回车换行符号，通常一个换行符号算作2个字符。

Private Sub Command1_Click()
Dim TXT As String
Dim a, b
TXT = "Da" & vbNewLine & "230" & vbNewLine & "Aa" '因为示范，所以赋一下值，楼主可根据实际情况
a = InStr(TXT, "Da") + 2 '因为"Da"是两个字符，所以加2，此处可以根据字符串长度变化
b = InStr(a, TXT, "Aa")
MsgBox Mid(TXT, a, b - a) '返回中间的字符串
'MsgBox Replace(Mid(TXT, a, b - a), vbNewLine, "") '返回去掉回车的字符串，根据实际情况在这两句中选择一句即可
End Sub

dsfgfgcv cv