Data Types VB.Net

Imports System.Numerics
Imports System
Module Example
   Public Sub Main()
        Dim numbers() As Decimal = { Decimal.MinValue, -18.35d, 0d, 1893.019d, 
                                     Decimal.MaxValue }
        For Each number In numbers
           Dim c1 As System.Numerics.Complex = CType(number, 
                                                     System.Numerics.Complex)
           Console.WriteLine("{0,30}  -->  {1}", number, c1)
        Next   
   End Sub
End Module