Permuta de números

Acá va tu código
**********
tenes que llamar a la function Permutar
eg: s = Permutar("123")
saludos
*********
Function Permutar(s As String) As String
Dim i As Integer
Dim s2 As String
Dim sOut As String
Dox s, Len(s), sOut
Permutar = sOut
End Function
Sub AgregarCombinacion(ByRef s As String, sNew As String)
' no agrega elementos duplicados
If InStr(1, s, sNew) = 0 Then
s = s & sNew & " "
End If
End Sub
Sub Dox(ByRef s As String, m As Integer, ByRef sOut As String)
Dim s2 As String, x As Integer
s2 = s
If m > 2 Then
For x = 1 To m
Dox s2, m - 1, sOut
s2 = Desplazar(s2, m)
Next x
Else
AgregarCombinacion sOut, s
AgregarCombinacion sOut, Desplazar(s2, m)
End If
End Sub
Function Desplazar(ByRef s As String, m As Integer) As String
If Len(s) > m Then
sStg = Left(s, Len(s) - m) & Right(s, m - 1) & Mid(s, IIf(m = 2, Len(s), m) - 1, 1)
Else
sStg = Right(s, m - 1) & Left(s, 1)
End If
Desplazar = sStg
End Function