Sub OnDatapointChanged(ByVal DP As Object, ByVal prop As String)
    If prop = "AlarmState" Then
        Dim Dateinummer As Integer
        Dim Dateiname As String 
        Dateinummer = FreeFile
        Dateinamen = Database.Datapoint("sFile").ActualValue
        Open Dateiname For Append As #Dateinummer
        If DP.AlarmState = Asc("N") Then 'no Alarm
            Print #Dateinummer, "kein Alarm: " & DP.Name & " Wert: " & DP.ActualValue
            ElseIf DP.AlarmState = Asc("A") Then 'Alarm
            Print #Dateinummer, "Alarm: " & DP.Name & " Wert: " & DP.ActualValue
            ElseIf DP.AlarmState = Asc("Q") Then 'Quit Alarm
            Print #Dateinummer, "Alarm quittiert: " & DP.Name & " Wert: " & DP.ActualValue
        End If
        If Dateinummer Then Close #Dateinummer 
        End If
End Sub