Combination from Lexicographic number.

Function GetNthCombination(N As Long, r As Long, ByVal cCombinationNo As Currency) As Long()

    Dim lCombination() As Long, i As Long, j As Long
    Dim cTemp As Currency
    ReDim lCombination(1 To r)

    For i = 1 To r
        Do
            j = j + 1
            cTemp = Round(Application.Combin(N - j, r - i), 0)
            If cCombinationNo <= cTemp Then
                lCombination(i) = j
                Exit Do
            End If
            cCombinationNo = cCombinationNo - cTemp
        Loop
    Next i

    GetNthCombination = lCombination

End Function

Option Explicit
Option Base 1

Const MinA As Integer = 1
Const MaxF As Integer = 39
 
Sub Lex2Combination()
    Dim A As Long, B As Long, C As Long, D As Long, E As Long
    Dim nVal As Double, nLex As Double
    With Application
        .ScreenUpdating = False: .Calculation = xlCalculationManual: .DisplayAlerts = False
    End With
    Cells(1, 1).Select
    nVal = Range("G1").Value
    nLex = 0
    For A = MinA To MaxF - 4
        For B = A + 1 To MaxF - 3
            For C = B + 1 To MaxF - 2
                For D = C + 1 To MaxF - 1
                    For E = D + 1 To MaxF
                        nLex = nLex + 1
                        If nLex = nVal Then
                            Range("A1").Value = A
                            Range("B1").Value = B
                            Range("C1").Value = C
                            Range("D1").Value = D
                            Range("E1").Value = E
                            Exit Sub
                        End If
                    Next E
                Next D
            Next C
        Next B
    Next A
    With Application
        .DisplayAlerts = True: .Calculation = xlCalculationAutomatic: .ScreenUpdating = True
    End With
End Sub