Example - CDbl Function

1. Sub Main ()

   1. Dim y As Integer

      y = 25555         'the integer expression only allows for 5 digits

      If VarType(y) = 2 Then

      1. Print y

         x = CDbl(y)         'Converts the integer value of y to a double value in x

         x = x * 100000         'y is now 10 digits in the form of x '

         Print x

      End If

   End Sub