Vb Code To VBA

[ranman256]

Public Property Get Subject() As Variant
Subject = mvSubject
End Property

Public Property Let Subject(ByVal vNewValue As Variant)
mvSubject = vNewValue
End Property