RosettaCodeData/Task/Exceptions/VBA/exceptions-1.vba
2023-07-01 13:44:08 -04:00

7 lines
106 B
Text

Sub foo1()
err.raise(vbObjectError + 1050)
End Sub
Sub foo2()
Error vbObjectError + 1051
End Sub