Public MaxLevel As Integer
Public x(1 To 4) As Integer
Public Level As Integer
Public Counter As Integer


Sub Start()

Counter = 1
MaxLevel = 4
Level = 1
Rescursion(1)

End Sub


Sub Recursion(Level)



For x(Level) = 1 To 3

    If Level = MaxLevel Then
            Cells(Counter, 1) = x(1) & x(2) & x(3) & x(4)
            Counter = Counter + 1
        Else

            Call Robin(Level + 1)


    End If

Next

End Sub