Mega Code Archive

 

Categories / VB.Net Tutorial / Development

 

InvalidCastException

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 InvalidCastException: Unable to convert 'asdf' to an integer