Data Type VisualBasic Script

Sub IntegerType()
    Dim answer As Integer
    Dim num1 As Single
    Dim num2 As Integer
    num1 = 5.3
    num2 = 6
    answer = num1 * num2
    Debug.Print answer
End Sub