n=20
b = 1
For i = 1 To n - 1

For j = i + b To n
For k = j + b To n
For y = k + b To n
For h = y + b To n
For w = h + b To n

List1.AddItem CStr(i) & "-" & CStr(j) & "-" & CStr(k) & "-" & CStr(y) & "-" & CStr(h) & "-" & CStr(w)


next
next
next
next
next
next