Development VB.Net

Class Sample
   Public Shared Sub Main()
        Dim values() As Object = { False, "a"c, 112323, "2342342349.78", "1e-02", _
                                   1.6222227e03, "A100", "1,033.67", Double.MaxValue }   
        Dim result As Decimal
        
        For Each value As Object In values
           Try
              result = Convert.ToDecimal(value)
              Console.WriteLine("Converted the {0} value {1} to {2}.", _
                                value.GetType().Name, value, result)
           Catch e As OverflowException
              Console.WriteLine("OverflowException")
           Catch e As FormatException
              Console.WriteLine("FormatException")
           Catch e As InvalidCastException
              Console.WriteLine("InvalidCastException")
           End Try                     
        Next
   End Sub 'Main
End Class 'Sample