Sub Main()
    Dim Δ As Integer
    Δ=1
    Δ=Δ+1
    Debug.Print Δ
End Sub