求救、vb程序n条数据每行显示4条全部显示

Option Explicit
Dim S() As Long
Private Sub 显示数据()
Dim n As Long, i As Long
n = 99 '　根据数据的个数更改这个数
ReDim S(1 To n) As Long
'　装载具体数据【Call 装载数据】
For i = 1 To n
Print CStr(S(i)) + Spece(8 - Len(Cstr(S(i)))); '　注意：这里有个英文分号
If i Mod 4 = 0 Then Print
Next
End Sub

i = 1
Do Until i > n
Print CStr(S(i)) + Spece(8 - Len(Cstr(S(i)))); '　注意：这里有个英文分号
If i Mod 4 = 0 Then Print
i = i + 1
Loop