Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim secretword, guess, word as string

        dim answer, tries as integer

        tries = 10

        secretword = "dictionary"

        console.writeline("You have 10 guesses, Be careful :)")

        do

            console.writeline("Guess a letter")

            guess = console.readline()

            answer = 0

            For i = 0 To secretword.length - 1

                if secretword(i) = guess Then

                    answer = 1

                End if

            next

​

            if answer = 1

                console.writeline("Yes!! This letter is in the word!!")

                tries = tries - 1

            end if

​

            if answer = 0

                tries = tries - 1

                console.writeline("You have lost a life!! guess again...")

            end if

        loop while tries > 0

​

        if tries = 0

            console.writeline("You have no lives left! Guess what the word is")

            word = console.ReadLine()

        end if

​

        if word = secretword

            console.writeline("You are correct!!")

        else

            console.writeline("You are incorrect!!")

        end if

    End Sub

End Module

​