Obtener todas la combinaciones posibles de un número

[tazzito]

no esta muy optimo imagino pero es lo primero que se me ocurrio

Dim ArrayNumeros(1 To 5) As Integer
Const largo = 5

ArrayNumeros(1) = 1
ArrayNumeros(2) = 2
ArrayNumeros(3) = 3
ArrayNumeros(4) = 4
ArrayNumeros(5) = 5

For a = 1 To largo
For b = 1 To largo
If b <> a Then
For c = 1 To largo
If c <> a And c <> b Then
For d = 1 To largo
If (d <> a) And (d <> b) And (d <> c) Then
For e = 1 To largo
If (e <> a) And (e <> b) And (e <> c) And (e <> d) Then
Debug.Print Trim(ArrayNumeros(a)) & Trim(ArrayNumeros(b)) & Trim(ArrayNumeros(c)) & Trim(ArrayNumeros(d)) & Trim(ArrayNumeros(e))
End If
Next
End If
Next
End If
Next
End If
Next
Next