FormatCurrency - FormatNumber no guarda con decimales

[damid3]

Hola De nuevo
Tema Formcurrency a formnumer -- base de datos mysql uso el "mysql workbench" y programa vb.net
tengo varios campos tipo decimal (10,2) y tengo un codigo para que cuando se veas se vea $23.23 ejemplo
codigo:

Código:

   Private Sub FormMoneda()
        tbpreciominimo.Text = FormatCurrency(tbpreciominimo.Text)
        tbpreciocosto.Text = FormatCurrency(tbpreciocosto.Text)
        tbpreciodist.Text = FormatCurrency(tbpreciodist.Text)
        tbpreciolocal.Text = FormatCurrency(tbpreciolocal.Text)
        tbpreciopublico.Text = FormatCurrency(tbpreciopublico.Text)
        tbprecioxunidad.Text = FormatCurrency(tbprecioxunidad.Text)
    End Sub

y tengo otro para poder guardarlos en la base de datos porque al ser de tipo decimal no puede guardarlos
codigo

Código:

Private Sub formNoMoneda()
        tbpreciominimo.Text = FormatNumber(tbpreciominimo.Text, 2)
        tbpreciocosto.Text = FormatNumber(tbpreciocosto.Text, 2)
        tbpreciodist.Text = FormatNumber(tbpreciodist.Text, 2)
        tbpreciolocal.Text = FormatNumber(tbpreciolocal.Text, 2)
        tbpreciopublico.Text = FormatNumber(tbpreciopublico.Text, 2)
        tbprecioxunidad.Text = FormatNumber(tbprecioxunidad.Text, 2)
    End Sub

Pero no los guarda con decimales .. alguno tiene alguna idea ?
uso la funcion formNoMoneda() antes de guardar los datos pero no los guarda con decimales

Ideas :D
desde ya muchas gracias y a ver que pasa XD
Saludos

[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 ^^