'Modul1
Global colTeile As VBA.Collection 
 
'Userform
Private Sub btnSpeichern_Click()
    Dim colteil As VBA.Collection
    Set colteil = New VBA.Collection
 
    With colteil
        .add Me.txbLaenge, "laenge"  'integer
        .add Me.cboxlinks, "WinkelLinks"  'Boolean
        .add Me.cboxRechts, "WinkelRechts"  'Boolean
        .add Me.txbAnzahl, "Anzahl"  'integer
    End With
 
    colTeile.add colteil
    Me.Hide
End Sub
 
'Variablen ausgabe
Public Sub ausgabe()
 
    Dim i, j As Integer
 
    For i = 1 To colTeile.Count
        For j = 1 To 4
            Debug.Print colTeile(i)(j)
        Next
    Next
End Sub