Data Type VisualBasic Script

Sub MyNumber()
        Dim intNum As Integer
    
        intNum = 23.11
        MsgBox intNum
End Sub