Quién sabe, pero créate una sub moneda, finalmente lo que necesitas es que te muestre el formato $#,###.## ?
Function moneda(cantidad)
formato = "$"
formato = formato & FormatNumber(cantidad)
Response.Write(formato)
End Sub 'aquí le había dejado Function
moneda precio
Si nada más sirve para imprimir esto te debe servir.
Salu2,