Imports System

Public Module Module1

    Public Sub Main()

        Dim rank1 As String

        Console.WriteLine("What is your rank?")

        rank1 = Console.ReadLine()

        IF rank1 > 10 THEN

            Console.WriteLine("Pretty good")

        ELSE IF rank1= 10 THEN

                Console.WriteLine("You are at the border yea")

        Else

            Console.WRiteLine("What a noob")

        END IF

    End Sub

End Module