Function Alarm(cell, Condition)
    If Evaluate(cell.Value & Condition) Then
        msgbox "Bad"
        Alarm = True
    Else
        msgbox "Good"
        Alarm = False
    End If
End Function