Language Basics VisualBasic Script

Sub blockIf()
    Dim bytAge As Byte
    If bytAge < 21 Then
        MsgBox "You may not purchase alcohol.", , "Underage"
        End
    End If
End Sub