Sub test()
    Dim a As Integer
    a = 41
    Debug.Assert a = 42
End Sub