mostrar numeros del textbox en moneda en tiempo de ejecucion

[ernestoelunico]

este es el codigo que tengo lo primero me sirve para bloquear que el usuario ingrese otra cosa que no sea numeros y lo ultimo se supone que es para hacer lo que yoq quiero pero no me funciona

Private Sub text1_KeyPress(KeyAscii As Integer)
If InStr("0123456789.", Chr(KeyAscii)) = 0 Then
If KeyAscii <> 8 Then KeyAscii = 0
End If
If KeyAscii = 13 Then
KeyAscii = 0 ' Para que no "pite"
SendKeys "{tab}"
StrDeFormato = Format(Text1, "$#,##0.00")
Text1.text = StrDeFormato
End If
End Sub