Decimal Ascii values

[squrel]

Hello All,

I have a table in my database with a field itemqty and the type was int and need to change it to decimal as i need the decimal point in my textbox.. i have a code for integer ascii values as bellow
i want to change this code and whtever i m doing my values is coming wrong coz i want both integer as well as decimal point ascii values.
can anyone help me in my code.
thank u in advance

Private Sub txtItemQty_KeyPress(KeyAscii As Integer)
On Error GoTo ChkErr
If Chr(KeyAscii) Like "[!0-9]" And KeyAscii <> 8 Then
         KeyAscii = 0
    End If
Exit Sub
ChkErr:
    If Err.Number > 0 Then
    MsgBox Err.Number & vbNewLine & Err.Description
               Call ErrHand(Me.caption, "Form_Initialize")
        'Resume Next
    End If
End Sub