Textbox Máscara Moeda com limitação

Galera, boa tarde!

Estou com uma grande dúvida.

Em um form, tenho uma textbox que está buscando informação em uma tabela. Os valores aparecem normalmente, sem problemas, inclusive consigo alterá-los.

Porém, no form, os números aparecem por exemplo "125000". Mas preciso que apareçam formatados como moeda "R$ 125.000,00". Além disso, gostaria de limitar o preenchimento do campo, sem a possibilidade de preencher com letras ou caracteres que fujam ao formato moeda.

Tentei com o código abaixo, mas ele não permite digitar "," (vírgula) além de não permitir o uso do backspace para apagar. E, também, o formato no formulário não fica como moeda "R$ 125.000,00".

Código:


Private Sub textbox_KeyPress(KeyAscii As Integer)

If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
        KeyAscii = 0
    End If

End Sub

Nas propriedades do campo, quando altero o formato para moeda, nada acontece também.

Alguém consegue me ajudar com um código que atenda as minhas necessidades?

Obrigado desde já!

Abs.

Bem,

Consegui com os códigos abaixo a formatar o campo como moeda:

Código:

Private Sub txtbox_GotFocus()

txtbox.Text = Format(txtbox.Text, "R$ #,##0.00")

End Sub

Código:

Private Sub txtbox_LostFocus()

txtbox.Text = Format(txtbox.Text, "R$ #,##0.00")

End Sub

Mas ainda gostaria de ajuda para bloquear os caracteres diferentes de número (e vírgula).