Boa-noite Schramm
Tenta dessa forma aqui.

Private Sub txt_valor_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If IsNumeric(Me.txt_valor) = True Then
Me.txt_valor = Replace(Me.txt_valor, ",", "")
Me.txt_valor = Format(Me.txt_valor / 100, "R$ #,##0.00")
End If
End Sub

att,

Francisco

Bom dia Francisco, testei o código agora e não funcionou corretamente, consigo inserir apenas um número ficando R$0.001 ou R$0.002, ou seja, não consigo digitar um valor completo.. no lugar do "." não deveria ter uma vírgula?

Desculpa Francisco, era uma configuração do meu pc utilizada para outro software que estava comprometendo o funcionamento do código que tu mandou.. Funcionou perfeitamente! Muito Obrigado