List 2-7　Let Valueプロシージャの変更

  1： Public Property Let Value(ByVal vNewValue As Long)
  2：     'inVal変数の値を設定する。
  3：     '値が負ならば，エラーを発生させる。
  4：     If vNewValue < 0 Then
  5：         Err.Raise 1 + 513 + vbObjectError, "Samplecom", _
   　                   "負の数を設定することはできません"
  6：         Exit Property
  7：     End If
  8：     inVal = vNewValue
  9： End Property