Вывод нескольких чилес из множества чисел

Sub p()
Dim i As Integer, j As Integer, k As Integer
Dim max As Integer
Dim s As String
    max = 6
    s = ""
    For i = 1 To max - 2
        For j = i + 1 To max - 1
            For k = j + 1 To max
                s = s & i & j & k & ";"
            Next k
        Next j
    Next i
    s = s & vbNewLine
    MsgBox s
End Sub

Sub Спортлото_6_36()
 
Dim max As Byte
max = 36
 
Dim q As Byte
Dim w As Byte
Dim e As Byte
Dim r As Byte
Dim t As Byte
Dim y As Byte
Dim Количество As Long
Dim s As String
    
    For q = 1 To max - 5
        For w = q + 1 To max - 4
            For e = w + 1 To max - 3
                For r = e + 1 To max - 2
                    For t = r + 1 To max - 1
                        For y = t + 1 To max
                            Количество = Количество + 1
                            Selection.TypeText Text:=Количество & " - " & q & w & e & r & t & y & Chr(13)
                            's = s & " " & Количество & " " & i & j & k & Chr(13)
                        Next y
                    Next t
                Next r
            Next e
        Next w
    Next q
    
'MsgBox$ Количество & " " & s

Количество = 36!/(36-6)!/6!