I wish this can help you.

Dim icount, supp As Integer
Dim sStr As String
sStr = ""
For icount = 1 To i
supp = icount Mod 150
If supp = 0 Then
MsgBox sStr
sStr = ""
End If
sStr = sStr & " " & Arr(icount)
Next icount
MsgBox sStr

Bye, Ste'