Imports System

Public Module Module1

    Public Sub Main()

        dim mynum as integer

        Do until mynum = 9

            console.writeline("pick a number between 1 and 10")

            mynum=console.readline()

            if mynum = 9 then

                console.WriteLine("yaayyyy, 9 it is")

            else

                console.WriteLine("sorry thats not my number")

            end if

        loop

    End Sub

End Module