ON SIZE ERROR

COBOL
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A PIC 9(5)V9.
       01 B PIC 9(5)V9 VALUE 100.
       PROCEDURE DIVISION.
           COMPUTE A = B / 0
               ON SIZE ERROR
                   MOVE 0 TO A
           .
           DISPLAY A UPON CONSOLE.
           STOP RUN.

VB.NET
Module Module1
    Sub Main()
        Dim A As Decimal
        Dim B As Decimal = 100
        Try
            A = B / 0
        Catch ex As Exception
            A = 0
        End Try
        Console.WriteLine(A)
    End Sub
End Module