小数点の位置を固定するには？ (ID:113088)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 特攻隊長まるるうさん、ご指摘ありがとうございます。 Option Explicit Private Sub Form_Load() Text1.Text = "0.00" End Sub Private Sub Text1_GotFocus() Text1.SelStart = 4 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < vbKey0 Or KeyAscii > vbKey9 Then KeyAscii = 0 Exit Sub End If Text1.Text = Mid(Text1.Text, 3, 1) & "." & _ Right(Text1.Text, 1) & Chr(KeyAscii) Text1.SelStart = 4 KeyAscii = 0 End Sub これだと1.23まではうまくいくんですがその次が2.34となり、1が消えてしまいます。どこを直せばよいのでしょう。 よろしくお願いします。