Gravar valor moeda

Olá estou fazendo um cadastro em vb.net usnado banco access, e ao gravar o valor no banco estou usando replace pra trocar virgula pelo ponto

mas aí ele grava assim: se digito 70,00 ao exibir fica 700,00 . Alguma dica ?

Dim valorVenda As Decimal = valorVendaTextBox.Text.Replace(",", ".")
Dim valorCompra As Decimal = valorCompraTextBox.Text.Replace(",", ".")