KeyAscii=47の時にText1.Textに"."が含まれているかInStrで確認する。SelStartが0で"."が押された場合、先頭に0を付ける。"."が無い時は先頭に"0"がこないようにする。もしくは、KeyPressで入力制限、KeyUpでText1.TextをFormat$で書式化する。くらいしか思いつきませんでした。