Module Module1
Enum VehicleType
None
Truck
Sedan
Coupe
End Enum
Sub Main()
' An invalid String.
Dim value As String =
"Spaceship"
Try
' Parse the invalid String.
Dim type As VehicleType =
[Enum].Parse(GetType(VehicleType), value)
Catch ex As Exception
' Write the Exception.
Console.WriteLine(ex)
End Try
End Sub
End Module
System.ArgumentException: Requested value 'Spaceship' was not found.
at System.Enum.EnumResult.SetFailure...