Private Sub Kontrollkästchen157_GotFocus()
  '------------Abfrage ob Feld gesetzt-----------
  If Check1.Value = 1 Then  '  wenn die CheckBox angeklickt ist, dann ....
    MsgBox "CheckBox ist angeklickt"
  Else
    MsgBox "CheckBox ist nicht angeklickt"
  End If
  If Not Check2.Value = 1 Then  ' wenn die CheckBox nicht angeklickt ist, dann 
  ' ...
    MsgBox "CheckBox ist nicht angeklickt"
  Else
    MsgBox "CheckBox ist angeklickt"
  End If
  Check3.Value = 2      ' CheckBox abgeblendet darstellen
    '-----------------------------------------------------------------
 
    '----------------------------------------------------------------
    If Me.ActiveControl Is Check1 Then
    MsgBox "Klick durch den Anwender!"
  Else
    MsgBox "Status-Änderung per VB-Code"
  End If
End If
    '---------------------------------------
    mDateAdd = DateAdd("m", 6, "Date")          'VK nach 6 Monaten löschen
    If mDateAdd = Date Then
 
End Sub

Keine Ahnung aber grosses Mundwerk.