Sub Demo()
  Dim Permut As String, ToPermut As String, X As Integer
 
  Permut = "0123456789"
  For X = 1 To Len(Permut)
    ToPermut = Left$(Permut, X)
    call MakePermut(ToPermut)
  Next
End Sub
 
Function MakePermut
...
End Function