Exit Property

This can be used to cause an immediate exit from the property
You can use any number in a property statement.

Private pAge As Integer 

Public Property Let Age(ByVal NewAge As Integer) 
    If (NewAge < 0) Then 
        MsgBox "Error: Age cannot be negative!", vbCritical 
        
        Exit Property 
    End If 
    
    pAge = NewAge 
End Property 

Public Property Get Age() As Integer 
    Age = pAge 
End Property