List 2-3　Private宣言に修正したプログラム

  1： Private inVal As Long                   'Private宣言に変更した。
  2： 
  3： Public Sub AddValue(vl As Long)
  4：        inVal = inVal + vl
  5： End Sub