Validation in keypress

I have 10 regular text boxes in one form and have following code in Keypress event. User can enter only numeric values and a decimal point. The maxlength is set to 5. I don't want user to enter 2 decimal points and also user can enter only one digit after decimal point.
Valid entries Example: .1, 0.1, 15.3, 100.0, 5.3
Invalid entries example: 1..1, 0.11, 0.25, 1.1.1 etc

VB Code:

Private Sub txtNoBarCDMax_KeyPress(KeyAscii As Integer)
 
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii <> 46 Then
    KeyAscii = 0
    Beep
Else
    If KeyAscii = 46 And count = 1 Then
        KeyAscii = 0
        Beep
    ElseIf KeyAscii = 46 Then
        count = 1
    End If
End If
End Sub

I had declared global variable count as variant in module. But it gives me error as
"Compile Error:
Function or Interface marked as restricted, or the function uses an Automation type not supported in VB"

Please advise. What would be the ideal way to validate?

Thanx.

Why is count a variant? Shouldn't it be either an Integer or a Long?

i tried declaring as integer but it didn't work........:( and received the similar error.....

I think it has some heartburn with the word Count. Change your declaration to an Integer and call it iCount.

I've never seen that kind of error associated with a textbox procedure. I'd try commenting out that block of coding and see what happens...

Hack... u r right...my code worked after changing global variable from count to icount.....how can i restrict user (in keypress) to enter only one digit after decimal point....eg 1.22

Thanx

Ok. I just whipped this together. See what you think.

VB Code:

Private Sub txtNoBarCDMax_LostFocus()
If IsDecimal(txtNoBarCDMax.Text) Then
   txtNoBarCDMax.Text = Format(txtNoBarCDMax.Text, "00000.00")
   txtNoBarCDMax.Text = CDec(txtNoBarCDMax.Text)
   MsgBox txtNoBarCDMax.Text
End If
End Sub
 
Private Function IsDecimal(ByVal MyValue As Variant) As Boolean
    Dim ConvertValue As String
    ConvertValue = CStr(MyValue)
    IsDecimal = False
    If IsNumeric(ConvertValue) Then
        If InStr(1, MyValue, ".") Then
            IsDecimal = True
        End If
    End If
End Function