Sub foo()
    Throw New MyException
End Sub