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)
      'Hier muesste eine neue Erzeugung aller Dim qtyList As New List(Of 
      ' String) stattfinden, oder?
    End If
  Loop
Next