Hallo,

ah ja Du bist da direkt im Event, dann gehts eventuell schon direkt über den Parameter:

Private Sub objinspectors_NewInspector(ByVal Inspector As Inspector)
    
    '....
    
         If Antwort = vbYes Then
                Edit_Termin   'Mokro zur Bearbeitung des termins
                Call Inspector.Close
         End If

     '....

End Sub

Gruß,