Aki tienes una solución, solo quiero recordarte, que aqui no se hacen tareas, y que debes escribir dudas específicas, no vuelvas a pedir que te den algo ya hecho.
Private Sub Form_Load()
MsgBox permutacionAleatoria("v15563696")
End
End Sub
Private Function permutacionAleatoria(s As String) As String
Randomize
Dim usados(100) As Boolean
Dim i As Integer, aux As Integer
Dim sFinal As String
Dim c As Integer, cant As Integer
cant = Len(s)
While c < cant
aux = Rand(0, cant - 1)
If usados(aux) = False Then
sFinal = sFinal & Mid(s, aux + 1, 1)
usados(aux) = True
c = c + 1
End If
Wend
permutacionAleatoria = sFinal
End Function
'Te regresa 1 valor aleatorio, entre el rango dado
Public Function Rand(ByVal Low As Long, _
ByVal High As Long) As Long
Rand = Int((High - Low + 1) * Rnd) + Low
End Function
