Option Strict On
Public Module ThrowStatement
Public Function GetEvenNumber() As Integer
Dim inputString As String = "asdf"
Throw New InvalidCastException("Unable to convert '" & inputString & "' to an integer")
Return 0
End Function
Public Sub Main
Try
Console.WriteLine(GetEvenNumber())
Catch e As InvalidCastException
Console.WriteLine(e.GetType().Name & ": " & e.Message)
Catch e As Exception
Console.WriteLine(e.GetType().Name & ": " & e.Message)
End Try
End Sub
End Module
|