31 lines
306 B
Plaintext
31 lines
306 B
Plaintext
Public Sub Main()
|
|
Dim iInteger As Integer
|
|
|
|
MakeError
|
|
DivError
|
|
|
|
iInteger = "2.54"
|
|
|
|
Catch
|
|
Print Error.Text
|
|
|
|
End
|
|
'______________________
|
|
Public Sub DivError()
|
|
|
|
Print 10 / 0
|
|
|
|
Catch
|
|
Print Error.Text
|
|
|
|
End
|
|
'______________________
|
|
Public Sub MakeError()
|
|
|
|
Error.Raise("My Error")
|
|
|
|
Catch
|
|
Print Error.Text
|
|
|
|
End
|