List 2-4　Get Valueプロシージャ，Let Valueプロシージャを実装する

  1： Private inVal As Long
  2： 
  3： Public Sub AddValue(vl As Long)
  4：     inVal = inVal + vl
  5： End Sub
  6： 
  7： Public Property Get Value() As Long
  8：     'inVal変数の値を返す。
  9：     Value = inVal
 10： End Property
 11： 
 12： Public Property Let Value(ByVal vNewValue As Long)
 13：     'inVal変数の値を設定する。
 14：     inVal = vNewValue
 15： End Property