RosettaCodeData/Task/Exceptions/VBA/exceptions-1.vba

8 lines
106 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
Sub foo1()
err.raise(vbObjectError + 1050)
End Sub
Sub foo2()
Error vbObjectError + 1051
End Sub