Public Structure EVC
        Private val As Boolean
 
        Public Function NewVal() As Boolean
            Dim val1 As Boolean = LeseWert()
            Dim res As Boolean = Not val And val1
            val = val1
            Return res
        End Function
 
        Public Function LeseWert() As Boolean
            ' neuen Wert einlesen und zurückgeben
        End Function
 
    End Structure

    Dim vala As EVC ' Variable
    Dim valb As EVC ' Variable
 
    If vala.NewVal() Then
        ' ...
    End If

________
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