Private gny(2) As String
    Public Property YesNo(ByVal i As Integer) As String
        Get
            Return gny(i + 1)
        End Get
        Set(ByVal Value As String)
            gny(i + 1) = Value
        End Set
    End Property

        YesNo(-1) = "no"
        YesNo(0) = "unknown"
        YesNo(1) = "yes"
 
        Debug.WriteLine(YesNo(-1))
        Debug.WriteLine(YesNo(0))
        Debug.WriteLine(YesNo(1))

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist