5行一组怎么弄

楼上的分得有问题，第一组怎么是6个呢？我这个是测试通过的

'需给窗体添加一个Command1、Text1的控件，其中，原来的数据可以在程序运行时，粘贴到Text1中，但要保证它们中间没有空行
Private Sub Command1_Click()
Dim abc As String, xyz As String
Dim rep As String 'rep是临时替换回车换行的字符，它不能在已有的数据中出现
Dim i As Integer, j As Integer

'用rep替换回车换行
rep = "#"
abc = Trim(Text1.Text)
abc = Replace(abc, Chr(13) & Chr(10), rep)

'隔5个数据就再插入一个rep
xyz = ""
k = 0
For i = 1 To Len(abc)
xyz = xyz & Mid(abc, i, 1)
If Mid(abc, i, 1) = rep Then
k = k + 1
If k Mod 5 = 0 Then xyz = xyz & rep
End If
Next

'用回车换行替换rep
xyz = Replace(xyz, rep, Chr(13) & Chr(10))
Text1.Text = xyz
End Sub

这些数据是在哪里的呢？
是文件里还是变量里，是用不同的方法

Private Sub Command1_Click()
Dim a() As String

a = Split(Text1, vbCrLf)
Text1 = ""
For i = 0 To UBound(a)
b = b & a(i) & vbCrLf
If (i + 1) M