Example - CSng Function

Sub Main ()
    Dim y As Integer
    y = 25

    If VarType(y) = 2 Then
        MsgBox y
        x = CSng(y)          'Converts the integer value of y to a single value in x
        MsgBox x
    End If
End Sub