Foro de elhacker.net

Como Usa El Format Currency en visual basic 6.0

:https://msdn.microsoft.com/en-us/library/3352e6f5%28v=vs.90%29.aspx

Aqui lo tienes para vb6:
http://www.vb-helper.com/howto_formatcurrency.html

Una pequeña traduccion Google y algo de explicacion:

    FormatCurrency(expression _
        [, digits_after_decimal] _
        [, include_leading_zero] _
        [, use_parens_if_negative] _
        [, groups_digits] )


Parametros:

expression
expresión numérica

digits_after_decimal
El número de dígitos a mostrar después del punto decimal

include_leading_zero
Si el número es menor que 1 y mayor que -1, determina si el número debe tener un 0 antes del punto decimal.

use_parens_if_negative
Determina si los números negativos están rodeados con paréntesis en lugar de utilizar un signo menos.

groups_digits
Determina si los dígitos a la izquierda del punto decimal se agrupan con separadores de miles (comas en los Estados Unidos).

Ejemplos:

Resultado = FormatCurrency(1.23456, 2) ' devuelve $1.23 con solo 2 decimales

Resultado = FormatCurrency(0.123456, 2, vbFalse) ' devuelve $.12 sin cero a la izquierda

Resultado = FormatCurrency(0.123456, 2, vbTrue)  ' devuelve $0.12 con cero a la izquierda

Resultado = FormatCurrency(-12345.12, , vbFalse) 'devuelve $-12,345.12  valores negativos con signo -

Resultado = FormatCurrency(-12345.12, , vbTrue) 'devuelve ($12,345.12)  valores negativos entre parentesis

Resultado = FormatCurrency(-12345.12, , vbTrue, vbFalse) 'devuelve ($12345.12) sin separadores de millar

Saludos