Private lngValue As Long

Public Property Get Value() As Long
   Value = lngValue
End Property

Public Property Let Value(ByVal vNewValue As Long)
   lngValue = vNewValue
End Property