Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim secretword, guess, wordguess as string

        dim answer, tries as integer

        tries = 10

        secretword = "gespenstschrecken"

        console.WriteLine("you have 10 tries")

        do

            answer = 0

            console.WriteLine("What is your guess")

            guess = console.ReadLine()

            for i = 0 to secretword.length - 1

                if secretword(i) = guess then

                    answer = 1

                end if

            next

​

            if answer = 1

                console.WriteLine("yes")

                tries = tries - 1

            end if

​

            if answer = 0

                console.WriteLine("no")

                tries = tries - 1

            end if

        loop while tries > 0

        if tries=0

        console.writeline("what is the word")

        wordguess = console.ReadLine()

        end if

        if wordguess = secretword

            console.WriteLine("well done")

        else

            console.WriteLine("wrong haha")

        end if

​

    End Sub

End Module

​