Example - CSng Function

1. Sub Main ()

   1. Dim y As Integer

       

      y = 25

      If VarType(y) = 2 Then

      1. Print y

         x = CSng(y)          'Converts the integer value of y to a single value in x

         Print x

      End If

   End Sub