Instruccion Left

[Nizam]

Hola a todos, tengo un problema que no se como solucionar, a ver si vosotros podeis echarme una mano.
En una base de datos, tengo datos con decimales separados con comas. Sinembargo cuando los recojo en una consulta SQL, esos datos con comas, pasan a datos con punto y se convierten en unidades de millar.
He echo una funcion quitapunto:

Function QuitaPunto(Datos)
Longitud = Len(Datos)
PosBusqueda = InStr(1, Datos, ".", 1)
Izq = Left(Datos, PosBusqueda - 1)
Dch = Right(Datos, Longitud - PosBusqueda)
QuitaPunto = Izq & "," & Dch
End Function

Sinembargo cuando la ejecuta me dice que no entiende la funcion Left.
Como no se javascript lo hago en visualbasicscript, pero si me pueden ayudar me da igual en que lenguaje.


Un saludo

[Mecenias]

El problema es de formato, prueba a hacer esto:

Numero=replace(datos, ".",",")

Y cambia los ptos por las comas.

Pruebalo y mira que pasa

[Nizam]

Ya he descubierto el error, resulta que si le pasas un valor sin un punto, com longitud es cero, Left intenta acceder a -1 con lo cual da un error de llamada.

Gracias por esa instruccion que no conocia y es mas sencilla que la funcion que he hecho.