Function create_Combinations(n As Integer)
 
Dim i As Integer
Dim m As Integer
Dim kombinationen As Integer
Dim kombination As String
 
i = 0
n = n - 1
 
Do
    m = i + 1
 
    Do
    kombination = lstElemente.List(i) & " - " & lstElemente.List(m)
    lstKombinationen.AddItem kombination
    kombinationen = kombinationen + 1
    m = m + 1
    Loop Until m = n
 
    i = i + 1    
Loop Until i = n
End Function