RosettaCodeData/Task/Assertions/VBA/assertions.vba

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