caixa d texto com valor

[fernandofbl 0]

preciso que seja digitado o valor com os centavos e quando precionar o <enter>o sistema formate com (00,00) sendo que, o usuario nao precise digitar a virgula. O Masked box nao deixa passar pela virgula. deixa?

[christianhess 0]

FAZ O SEGUINTE:

 

Private Sub CAMPOPARAFORMATAR_KeyPress(KeyAscii As Integer)If KeyAscii = vbKeyReturn ThenKeyAscii = 0CAMPOPARAFORMATAR.text = format(campoparaformatar.text, "00,00")End IfEnd Sub