Convert.ToSingle (Decimal) converts decimal number to single-precision floating-point number.
Class Sample Public Shared Sub Main() Dim values() As Decimal = { Decimal.MinValue, -1034.23d, -12d, 0d, 147d, Decimal.MaxValue } Dim result As Single For Each value As Decimal In values result = Convert.ToSingle(value) Console.WriteLine("Converted the {0} value '{1}' to the {2} value {3}.", _ value.GetType().Name, value, _ result.GetType().Name, result) Next End Sub End Class