Module 4 Example 1

Module Module1

    Sub Main()
        'CHECK IF THE GIVEN NUMBER IS 18 OR ABOVE
        Dim num As Integer
        Console.Write("Please enter a number: ")
        num = Console.ReadLine

        If num >= 18 Then
            Console.WriteLine("The given number is 18 and above!")
        Else
            Console.WriteLine("The given number is below 18!")
        End If

        Console.ReadKey()
    End Sub

End Module