Oi Daniela, vê se a função abaixo atende:
Public Function CPF_Embaralhado(cpf As String) As String
Dim dig(1 To 11) As String
Dim i, y
For i = 1 To 11
Do While True
Randomize
y = Int((11 * Rnd) + 1)
If dig(y) = "" Then
dig(y) = Mid$(cpf, i, 1)
Exit Do
End If
Loop
Next i
CPF_Embaralhado = Join(dig)
End Function
