[Resuelto] Problema con punto y coma de decimales

Soy nuevo por el foro. Espero que mis preguntas pueden ayudar a otra gente con sus proyectos.

Quería plantear un problema que se me ha dado esta mañana, que ya lo tuve hace tiempo y le di solución.

Tengo una función personalizada en un módulo para sacar el nombre del rango de un ratio. Este ratio toma como valor entre 0 y 1. Como yo tengo configurado en mi ordenador los decimales con coma, y los miles con punto, esto me da problemas con VBA. Para ello, lo que hago es utilizar Replace, para sustituir las comas por puntos.

Bien, esto me ha estado funcionando hasta ahora sin problemas. Sin embargo, como he dicho, cuando toma como valor menor que 1, por ejemplo, 0,5, cuando lo paso por el Replace, en vez de devolverme 0.5, me devuelve 5, y claro, la función me da error porque no encuentra ese valor entre los valores que tengo guardados en una tabla.

Aquí os dejo una captura de pantalla:

https://www.dropbox.com/s/w7b1qrr0pfgc9l3/ScreenShot001.jpg?dl=0

¡Gracias!

Y en la ventana inmediato:  502994011976048 

¡Gracias!

Te pongo aquí toda la secuencia:

Si ejecuto eso, me da este error:

Se ha producido el error '3075' en tiempo de ejecución:

Error de sintaxis (coma) en la expresión de consulta 'ValorMinimo <= 0,50299401 And ValorMaximo >=0,50299401'.

Ahora, tirando de la Ayuda de Access, y en relación al despropósito que dices que hay.

El resultado de la función IndiceCinturaAltura la declaro como Double, aunque DLookup devuelve un Variant. Ahí no sé si tendría que cambiar Double por Variant.

Luego, utilizo el Replace para sustituir comas por puntos. Sí puede ser que aquí esté cometiendo otro error, porque eso es para Strings, ¿no? Pero si uso CDbl como tú dices, mira el error que me tira: las comas, ¿cómo lo arreglo entonces?

Tengo puesto el Debug.Print ahí para ver qué valor coge ValorIndiceCinturaAltura.

Muchas gracias a todos por vuestras respuestas.

No había caído en irme a donde me estaba dando el problema.

Muchas gracias a todos.