Dim qtyList As New List(Of String)
Dim qtyGesamtList As New List(Of List(Of String))
 
For...
...
   Do While..
    qtyList.add(irgendein Wert)
    qtyList.add(irgendein Wert)
    qtyList.add(irgendein Wert) 'usw. bis 100 Werte nun in qtyList drinstehen.
    ...
    If Ende = True Then            
      qtyGesamtList.Add(qtyList)
      qtyList.Clear()
    End If
  Loop
Next