Language Basics VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Language Basics
  4. One-Line If Statements
Sub ifDemo()
    Dim bytAge As Byte
    bytAge = InputBox("Enter your age.", "Age")
    If bytAge < 21 Then MsgBox "You may not purchase alcohol.", , "Underage"
End Sub