Qu'entends-tu par là ? Tu comptes les caractères différents utilisés pour écrire un nombre : si ce nombre est égal au nombre total de caractères, c'est qu'ils sont tous différents...
Function IsDistinct(N$) As Boolean
Dim i, ii, k, Y
Y = True
For i = 1 To Len(N) - 1
k = Mid(N, i, 1)
For ii = i + 1 To Len(N)
If Mid(N, ii, 1) = k Then Y = False
Next
Next
IsDistinct = Y
End Function