Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim secretword, guess,wordguess, position1, position2, position3 as string

        dim answer,tries as integer

        tries=10

        secretword = "dog"

        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(1) = guess then

                position1=1

            end if

            if secretword(2) = guess then

                position2=1

            end if

            if secretword(1) = guess then

                position1=1

            end if

        next

    loop while tries>0

        console.writeline("what is the word")

        wordguess=console.ReadLine()

        if wordguess=secretword

            console.WriteLine("well done")

        end if

        if wordguess<>secretword

            console.WriteLine("well done")

        end if

    End Sub

End Module

​