Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim mn As Integer

        Dim life as integer

        life = 10

        While mn <> 13

            Console.WriteLine("guess number " & life & " guesses left")

            mn = Console.ReadLine()

            If mn < 13 Then

                Console.WriteLine("to low")

            End If

​

            If mn > 13 Then

                Console.WriteLine("to high")

            End If

            life = life - 1

            If life = 0 then

                console.writeline("wow you're so bad at this, Bye!")

                EXIT WHILE

            End If

​

        End While

    End Sub

End Module

​