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

[hamalous]

سلام من میخوام عکس عملی رو که در پست قبل گفتم انجام بدم یعنی اون 10 عبارت رو به یک عبارت تبدیل کنم کد شما رو تغییر دادم اما فقط برای یک عبارت انجام میشه ،, و باید برای ده عبارت بعدی همین کار رو دوباره تکرار کرد ممکنه لطف کنید کد را تصحیح کنید ممنون
cmdg.ShowOpen
filepath = cmdg.FileName
Open filepath For Input As #1
tmp = Input(LOF(1), #1)
Close #1
Text1.Text = tmp
Dim i%
Dim x() As String
x = Split(Text1.Text, vbCrLf)
Dim y() As String, z As String, j As Integer
Open filepath For Output As #1
For i = 0 To UBound(x)
y() = Split(x(i), vbTab)
If y(1) = "4-4" Then
a = Left(y(0), 5) + vbTab + "5-5"
z = Left(y(0), 5) + CStr(j) + vbTab + "4-4"
For j = 1 To 9
z = z + vbCrLf + Left(y(0), 5) + CStr(j) + vbTab + "4-4"
Next j
Text1.Text = Replace(Text1.Text, z, a)
End If
Next i
Print #1, Text1.Text
Close #1