请问vb如何修改txt内容的排序，恳请帮助！

比如我原本的内容是：
1
2
3
4
……
我想让它在textbox中每读取一次就将首行排列在末行，比如：
2
3
4
1
接着是：
3
4
1
2
以此类推。。。
我没有悬赏分给大家了，我想你们也不再乎有没有悬赏分呵，帮帮同在一片蓝天下成长的中国同胞们吧！嘿嘿，恳请帮助，愿好人一生平安……

Dim s() As String, i As Integer, s1 As String
Open "1.txt" For Binary As #1
s = Split(Input(LOF(1), #1), vbCrLf)
Close #1
s1 = s(0)
For i = 0 To UBound(s) - 1
s(i) = s(i + 1)
Next
s(i) = s1
Text1.Text = Join(s, vbCrLf)

你说呢...