'Benötigt wird: 1 Command-Button
Private Sub Command1_Click()
 
Dim A%, B%, C%, D%, E%, F%, Pfad$, N&
 
Pfad = "C:\Lotto.txt"
 
N = 0
Open Pfad For Output As #1
  For A = 1 To 49
    For B = A + 1 To 49
      Me.Caption = A & "/" & B 'Kontrolle
      DoEvents
      For C = B + 1 To 49
        For D = C + 1 To 49
          For E = D + 1 To 49
            For F = E + 1 To 49
              Print #1, A; B; C; D; E; F
              N = N + 1
            Next F
          Next E
        Next D
      Next C
    Next B
  Next A
Close #1
MsgBox N & " Einträge"
 
End Sub

Gruss,

Zardoz