VB如何text1查找字符串，如果找到，将该行字符串全部写入到text2

说一下思路：
1，行与行之间是回车符号，VB中是用常量 VbCrLf 表示
2，VB用来在字符串中寻找某个子串的函数 Instr()

算法：
逐行（用Instr() 和 VbCrLf来分行）检查是否有"55"，若有就将该行复制到Text2。

参考代码如下：
Option Explicit
Private Sub Command1_Click()
Dim Ystr As String
Dim Mstr As String
Dim Lstr As String
Dim L As Integer
Ystr = Text1.Text
Mstr = ""
L = InStr(Ystr, vbCrLf)
Do While L <> 0
Lstr = Left(Ystr, L - 1)
If InStr(Lstr, "55") <> 0 Then
Mstr = Mstr & Lstr & vbCrLf
End If
Ystr = Right(Ystr, Len(Ystr) - L - 1) '回车为2个字符
L = InStr(Ystr, vbCrLf)
Loop
Text2.Text = Mstr
End Sub