this may help point you towards what you want
VB Code:
  1. Dim newrange As String = ""
  2.         Dim l_ctr As Integer = 0
  3.         Dim l_e As IEnumerator = l_myarraylist.GetEnumerator()
  4.         l_e.reset()
  5.         While l_e.MoveNext
  6.             If l_ctr > 3 Then
  7.                'add code to do whatever is needed with the 3 elements
  8.                l_ctr = 0
  9.             End If
  10.             newrange &= Ctype(l_e.current,String) & ","
  11.             l_ctr = l_ctr + 1
  12.         End While