Imports System

Public Module Module1

    Public Sub Main()

        dim guessletter, answer, guessword as string

        dim correctanswer as boolean

        dim score as integer

        answer = "carrot"

        score = 0

        Console.WriteLine("hangman(but with 1 life only) - the game where if you fail, you get hung")

        console.WriteLine("please guess a letter")

        guessletter = console.readline()

        while correctanswer = false

        if guessletter = "c" or guessletter = "a" or guessletter = "r" or guessletter = "o" or guessletter = "t" then

                score += 1

            console.writeline("that letter is correct. please take a guess at the word - clue - you can eat it")

            guessword = console.readline()

            if guessword = "carrot" then

                console.WriteLine("well done you win")

                    score += 9

                    correctanswer = true

            else

                    console.writeline("no, i am sorry that is wrong")

                    correctanswer = false

            end if

        else

            console.writeline("no sorry u r out")

        end if

        end while

        console.writeline("your score was " & score & " out of 10")

    End Sub

End Module