Aqui lo tienes para vb6:
http://www.vb-helper.com/howto_formatcurrency.htmlUna 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