Visual Basic - Ayuda para manejo de cantidades numericas

Hola : ) disculpen no se porque este error y tampoco resolverlo:

Tengo intalado Oficce 2003 y VB6, y no puedo resolver operaciones basicas como sumas, porque la base de datos que uso tiene cantidades escritas asì: 678,284 o 1,678 pero son cantidades completas y vb me las toma como 678.284 o 1.678 y despues las redondea al realizar operaciones como 678 y 1.

He intentado muchas formas y no se porque. Necesito ayuda Gracias y Feliz año.

Fijate en la declaracion de la variables que estas utilizando.
Tambien podes utilizar las funciones de convertir datos para forzar a la operacion que te de el resultado deseado.
Función Tipo devuelto Intervalo del argumento expresión

Cbool Boolean Cualquier expresión de cadena o numérica válida.

Cbyte Byte 0 a 255.

Ccur Currency -922.337.203.685.477,5808 a 922.337.203.685.477,5807.

Cdate Date Cualquierexpresión de fecha.

CDbl Double -1,79769313486232E308 a
-4,94065645841247E-324 para valores negativos; 4,94065645841247E-324 a 1,79769313486232E308 para valores positivos.

Cdec Decimal +/-79.228.162.514.264.337.593.543.950.335 para números basados en cero, es decir, números sin decimales. Para números con 28 decimales, el intervalo es
+/-7,9228162514264337593543950335. La menor posición para un número que no sea cero es 0,0000000000000000000000000001.

Cint Integer -32.768 a 32.767; las fracciones se redondean.

CLng Long -2.147.483.648 a 2.147.483.647; las fracciones se redondean.

CSng Single -3,402823E38 a -1,401298E-45 para valores negativos; 1,401298E-45 a 3,402823E38 para valores positivos.

CStr String El mismo intervalo que Double para valores numéricos. El mismo intervalo que String para valores no numéricos.

Cvar Variant El valor de retorno de CStr depende del argumento expresión.

salu2