Module Tester Public Sub Main() Dim iInteger As Integer = 5280 Dim lLong As Long Dim bytByte As Byte Dim sngSingle As Single Dim dblDouble As Double Dim decDecimal As Decimal
Console.WriteLine("Convert to a Decimal: {0}", CDec(iInteger) / 34) End Sub
End Module
Convert to a Decimal: 155.29411764705882352941176471