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