小数点を１つだけ出すには？ (ID:79181)

名前

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

本文 小数点のコマンドを何回もクリックすると小数点がたくさん出てきます。 小数点を１つだけ出すにはどうすればよろしいのでしょうか？ 現在のプログラムです。 Private Sub Command1_Click() If InStr(text1.text,",") Then Exit Sub Else Text1.Text = Text1.Text + "." End If End Sub