FormatCurrency - FormatNumber no guarda con decimales

[damid3]

ya esta solucionado lo hice de la siguente forma
el segundo codigo que pasa a convertirlos en numeros lo puse de la asi

Código:

    Private Sub formNoMoneda()
        tbpreciominimo.Text = Str(tbpreciominimo.Text)
        tbpreciocosto.Text = Str(tbpreciocosto.Text)
        tbpreciodist.Text = Str(tbpreciodist.Text)
        tbpreciolocal.Text = Str(tbpreciolocal.Text)
        tbpreciopublico.Text = Str(tbpreciopublico.Text)
        tbprecioxunidad.Text = Str(tbprecioxunidad.Text)
    End Sub

Suerte ^^