Imports SysUtils Dim X As single = 0 Try X = X / X Catch E As Exception println E.Message Finally println "ok" End Try