[RESOLVED] Again with Decimal...........

[Hack]

Try something like

If KeyAscii = 46 Then
   If InStr(1, Text1.Text, ".") = 0 Then 'there is no decimal point
      'do whatever you need to do if there is no decimal point  
   Else
      'there is a decimal point, so whatever is appopriate here
   End If
End If