>>695
If KeyAscii = Asc(".") And InStr(Text1, ".") Then