Class class1
    Private propertyValue As String
    Public Property prop1() As String
        Get
            Return GenerateThePropertyvalue( propertyValue )
        End Get
        Set(ByVal Value As String)
          if Value = "" Then Throw New ArgumentException("Darf nicht leer sein")
          propertyValue = Value
        End Set
    End Property
End Class