کمک در مورد جابجایی قسمتی از متن

[hamalous]

ممنون من از rich text box استفاده کردم مشکل حل شد هر چند که باعث کندی برنامه شد در مورد سوال دوم اینکار رو کردم ولی هر چقدر کدها رو تحلیل کردم نتونستم راهی پیدا کنم ممنون میشم اگه میتونید کمک کنید ببینید این کد شماست
If Text2.Text = "" Then
MsgBox "ÎØÇ:áØÝÇ ˜ÏåÇ ÑÇ æÇÑÏ äãÇííÏ"
End If
Text4.Text = ""
Dim lines() As String, i As Integer, j As Integer, tstr() As String, adder As Boolean

lines() = Split(Text2.Text, vbCrLf)

For i = 0 To UBound(lines)
If InStr(Text1.Text, Trim(lines(i))) = 0 Then
adder = False
tstr() = Split(Trim(lines(i)), Chr(9))
If tstr(1) = "5-5" Then
For j = 0 To 9
If InStr(Text1.Text, tstr(0) + CStr(j) + Chr(9) + "4-4") = 0 Then
adder = True
Exit For
End If
Next
If adder = True Then Text4.Text = Text4.Text + Trim(lines(i)) + vbCrLf
adder = True
End If
If adder = False Then Text4.Text = Text4.Text + Trim(lines(i)) + vbCrLf
End If
Next

lines() = Split(Text1.Text, vbCrLf)

For i = 0 To UBound(lines)
If Trim(lines(i)) <> "" Then
adder = False
tstr() = Split(Trim(lines(i)), Chr(9))
If tstr(1) = "5-5" Then
For j = 0 To 9
If InStr(Text4.Text, tstr(0) + CStr(j) + Chr(9) + "4-4") = 0 Then
adder = True
Exit For
End If
Next

If adder = False Then
For j = 0 To 9
Text4.Text = Replace(Text4.Text, tstr(0) + CStr(j) + Chr(9) + "4-4" + vbCrLf, "")
Next
End If
End If
End If
Next
من اصلا سر در نمیارم اون ch(9) رو برا چی گذاشتین تا اونجاییکه یادمه این رو قرار داده بودین که فاصله بین دو ستون رو تو مقایسه لحاظ نکنه که من عرض کردم خدمتتون اون مشکل رو با شبیه کردن دو فایلی که می خواستم مقایسه کنم حل کردم یعنی دیگه مشکل فاصله بین دو ستون رو ندارم