Sub aTest()
     Dim i&, j1&, j2&, j3&, j4&
     For j1 = 1 To 4: For j2 = j1 To 4: For j3 = j2 To 4: For j4 = j3 To 4
         i = i + 1: Cells(i, 1) = j1 & j2 & j3 & j4
     Next j4, j3, j2, j1
End Sub

Option Explicit

Sub m()
       Dim i As Integer, j As Integer, k As Integer, l As Integer
       Dim a(1 To 4) As Integer

       Dim sVal As String, sKey As String
       Dim colIt As New Collection

       On Error Resume Next
       For i = 1 To 4
           For j = 1 To 4
               For k = 1 To 4
                   For l = 1 To 4
                       a(1) = i
                       a(2) = j
                       a(3) = k
                       a(4) = l
                          
                       sVal = sGetString(a)
                       SortArray a
                       sKey = sGetString(a)

                       colIt.Add sVal, sKey
                   Next: Next: Next: Next
          
       Dim sMsg As String
       For i = 1 To colIt.Count
           sMsg = sMsg & colIt(i) & ", "   ' & vbTab  ' & vbNewLine  ' & ", "
       Next
       sMsg = Left$(sMsg, Len(sMsg) - 2)
          
       MsgBox sMsg
End Sub

Function SortArray(a() As Integer) As String
       Dim i As Integer, j As Integer
       Dim tmp As Integer

       For i = 1 To UBound(a) - 1
           For j = i + 1 To UBound(a)
               If a(i) > a(j) Then
                   tmp = a(j)
                   a(j) = a(i)
                   a(i) = tmp
               End If
           Next j
       Next i
End Function

Function sGetString(a() As Integer) As String
       Dim i As Integer, sRes As String
       For i = 1 To UBound(a)
           sRes = sRes & CStr(a(i))
       Next i
       sGetString = sRes
End Function