In diesem Beispiel wird die Property Get-Anweisung verwendet, um eine Eigenschaftsprozedur zu definieren, die den Wert einer Eigenschaft abruft. Die Eigenschaft bestimmt die aktuelle Farbe des Stiftes in Form einer Zeichenfolge.
Dim AktFarbe As Integer Const SCHWARZ = 0, ROT = 1, GRÜN = 2, BLAU = 3 ' Aktuelle Farbe des Stiftes als Zeichenfolge zurückgeben. Property Get StiftFarbe() As String Select Case AktFarbe Case ROT StiftFarbe = "Rot" Case GRÜN StiftFarbe = "Grün" Case BLAU StiftFarbe = "Blau" End Select End Property ' Die folgende Zeile gibt die Farbe des Stiftes durch Aufrufen der ' Property Get-Prozedur zurück. Farbe = StiftFarbe()