Función VBA cuántos dígitos diferentes hay en un número

[Ho la y bienvenido a TodoExpertos!

Utiliza la siguiente función:

Function CuantosDiferentes(dato As String) As String
  Dim c As String, x As String
  Dim i As Long
  dato = Replace(dato, ".", "")
  For i = 1 To Len(dato)
    x = Mid(dato, i, 1)
    If InStr(1, c, x) = 0 Then
      c = c & x
    End If
  Next
  If c <> "" Then
    CuantosDiferentes = "tiene " & Len(c) & " dígitos diferentes"
  End If
End Function

Sigue las Instrucciones para una Función

1. Abre tu libro de excel
2. Para abrir VBa y poder pegar la función, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la función
5. En cualquier celda utiliza la función, como cualquier otra función de excel

Ejemplo:

=CuantosDiferentes(A2)

Al final de mi respuesta hay un botón para valorar, es como un like.

MUCHAS GRACIAS, Dante. ¡Qué buena su función! Me encanta  :) Sencilla y efizaz, sí señor. Muy agradecido.
Únicamente he realizado una pequeña adaptación al formato de mis celdas. Me explico mejor que antes quizás no lo hice. Cuando puse que mis celdas tenían el "formato de número", quise decir que por ejemplo en el caso del número "00.117" mi celda pone "117" y mediante un formato personalizado (00.000) la celda muestra "00.117". De este modo la instrucción
dato = Replace(dato, ".", "") nunca llega a ejecutarse ya que el "." y los "0" de la izquierda tan solo son una máscara. Por eso y para obtener un resultado correcto, -ya que a efectos del análisis quiero que se tenga en cuenta las 5 cifras del número aunque las primeras sean "0"-, he cambiado su línea por:
dato = Format(dato, "00000")
Únicamente lo comento por si alguien quiere usar su función sobre una celda que muestre algún cero a la izquierda o el signo de puntuación mediante una máscara de formato.