Problema con formato decimal con vb6.0 - URGENTE

[hunter18]

Para resumir quiero hacer este calculo tan simple
Hago esto:

Código:

Private Sub Command1_Click()
MsgBox Format(Val("100,52") * Val(1), "currency")
End Sub

Los decimales se pierden cuando en lugar de punto(0.00) se utiliza coma(0,00) por ejemplo.

MsgBox Format(Val("100.52") * Val(1), "currency")
resultado=100.52

MsgBox Format(Val("100,52") * Val(1), "currency")
resultado=100.00

Se pierden 0.52, logicamente el valor 100.52 se ingresara desde un Text1 y como sabran la configuracion regional varia en los distintos paises algunos utilizan coma y otro punto, como hacer algo generico ya que solo funciona al utilizar punto, pueden probar en su computador haber que resultado les sale?

[lokoman]

Hola!!
Intenta lo siguiente:

MsgBox Format(Val(Replace("100,52", ",", ".")) * Val(1), "currency")

Nos cuentas!!!!