vb 提取特定字符

Private Sub Command1_Click()
Dim a, i
a = Split(Text1.Text, vbCrLf & vbCrLf)
For i = LBound(a) To UBound(a)
If Left$(a(i), 2) = "1组" Then
Text2.Text = IIf(Len(Text2.Text) = 0, a(i), Text2.Text & vbCrLf & vbCrLf & a(i))
End If
Next i
End Sub

Private Sub Command1_Click()
a = InStr(1, Text1.Text, "1组")
b = InStr(a, Text1.Text, "组")
Text2.Text = Text2.Text & Mid(Text1.Text, a, b - a-1)
End Sub