Sub floatValue() Dim val1 As Single Dim val2 As Single Dim val3 As Integer val1 = 3.14 val2 = 6.63 val3 = CInt(val1 * val2) End Sub