textbox format

[martialdc]

I use this code to format the text of a textbox into a Currency Format:

Private Sub Text1_Change()
If Not IsNumeric(Text1) Then
SendKeys vbBack
End If
'
Text1 = Format(Text1, "#.#0")
End Sub

But there is something wrong with this;
check this code first and advice me what code should i write?
thanks

[akki]

How about this one

Private Sub Text1_Change()
    If Not IsNumeric(Text1.Text) Then
        SendKeys vbBack
    End If
End Sub
 
 
Private Sub Text1_Validate(Cancel As Boolean)
    Text1.Text = Format(Text1, "#.#0")
End Sub

[da_silvy]

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Not (KeyAscii = vbKeyBack Or KeyAscii = Asc(".") _
    Or KeyAscii = Asc(",") Or (KeyAscii >= Asc("0") _
    And KeyAscii <= Asc("9"))) Then KeyAscii = 0
End Sub

applicable currency keys only