Private _MyVariable As String
 
    Public Property MyVariable() As String
        Get
            'optionale Abfragechecks hier einbauen
            Return _MyVariable
        End Get
        Set(ByVal value As String)
            'optionale ZuweisungsChecks hier einbauen
            _MyVariable = value
        End Set
    End Property