Обнаружить изменение в ячейке с 1 на 0

[Atrem]

Подскажите как можно обнаружить изменение в ячейке, пусть будет ячейка А1 числа с 1 на 0, с 2 на 0 и т.д.
Числа в ячейке А1 меняются с помощью макроса и могут быть 0, 1, 2, 3 и т.д. Надо понять после какого числа (с одного, с двух, с трех) появился ноль.
Концептуально должно получится примерно так

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
If ноль в А1 появился после 1 Then первое действие
If ноль в А1 появился после 2 Then второе действие
If ноль в А1 появился после 3 Then третье действие
End If
End Sub

[Igor1961]

Dim i1&, i2&
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
   i2 = i1
   i1 = Range("A1")
If i1 = 0 And i2 = 1 Then
   MsgBox "Первое действие"
End If
If i1 = 0 And i2 = 2 Then
   MsgBox "Второе действие"
End If
If i1 = 0 And i2 = 3 Then
   MsgBox "Третье действие"
End If
End If
End Sub