Prev: String search on two tables
Next: Remove spaces
From: SteAXA on 27 May 2010 17:32
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'
 | 
Pages: 1
Prev: String search on two tables
Next: Remove spaces