リスト６：小数点キー（[.]）がクリックされたときの処理 Private Sub cmdDotkey_Click() 　　' すでに小数点が入力されていれば抜ける 　　If IsCamma = True Then Exit Sub 　　txtNumber.Text = txtNumber.Text & "." 　　IsCamma = True End Sub 本文へ戻る