Data Type Functions VisualBasic Script

Sub cintDemo()
    Dim varMyInput
    Dim intMyVar As Integer
    
    varMyInput = InputBox("Enter an integer:", "10 Is True, Other Numbers Are False")
    intMyVar = CInt(varMyInput)
    MsgBox CBool(intMyVar = 10)
End Sub