Option Explicit
Private m_FirstName As String
Private m_LastName As String
Private m_BirthDate As Date
Property Get FirstName() As String
FirstName = m_FirstName
End Property
Property Let FirstName(ByVal newValue As String)
If newValue = "ciao" Then Err.Raise 5
m_FirstName = newValue
End Property
Property Get LastName() As String
LastName = m_LastName
End Property
Property Let LastName(ByVal newValue As String)
If newValue = "" Then Err.Raise 5
m_LastName = newValue
End Property