Catch and rethrow exceptions

Imports System
Imports System.Data
Imports System.IO

public class MainClass
   Shared Sub Main()
       Dim FileToRead As String = "test.txt"
       Dim TestFile As FileStream

       Dim Reader As New StreamReader(FileToRead)
       Do
           Dim I As Integer, S As String
           Dim Result As Integer
           Try
               S = Reader.ReadLine()
               I = CInt(S)
               Result = 100 \ I
               Console.WriteLine(Result)
           Catch DivByZero As System.DivideByZeroException
               Console.WriteLine("** Divide by zero **")

           Catch BadConversion As System.InvalidCastException
               Console.WriteLine("** " + S + " is not a number **")
               Throw New System.InvalidCastException("My own exception happened here", BadConversion)

           Catch OtherErrors As Exception
               Throw OtherErrors
           End Try
       Loop While Reader.Peek <> -1
   End Sub
End Class

Related examples in the same category

1.	Throws exception and catches it locally
2.	Throw Exception Without Catch
3.	Exception occurs and caught, then rethrown to caller
4.	Any Exception generatesd will be caught in the Catch block that follows
5.	Throw an Exception
6.	Throw an Exception from a Function

Catch and rethrow exceptions : Throw « Language Basics « VB.Net

Related examples in the same category