' Alle 6er Kombis
Dim out As Integer
Dim i1%, i2%, i3%, i4%, i5%, i6%
out = FreeFile
Open "6aus49.txt" For Output As out
 
For i1 = 1 To 44
s21 = i1 + 1
For i2 = s21 To 45
s31 = i2 + 1
For i3 = s31 To 46
s41 = i3 + 1
For i4 = s41 To 47
s51 = i4 + 1
For i5 = s51 To 48
s61 = i5 + 1
For i6 = s61 To 49
 
usw...

i1	i2	i3	i4	i5	i6
1	2	4	7	8	15
2	3	5	9	10	16
3	4	6	10	11	18
4	5	7	11	13	19
5	6	8	12	14	20
6	7	9	13	15	21
7	8	10	14	16	22
8	9	11	15	17	23
9	10	12	16	18	24
	11	13	17	19	
	12	14	18	20	
	13	15	20	21	
		16	21	22	
		17		23	
		18