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