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