Imports System

imports microsoft.visualbasic

Public Module Module1

    Public Sub Main()

        Dim userinput As ConsoleKeyInfo = Nothing

        Dim wordToGuess As New List(Of String)

        Dim letter As String

        Dim repeat As Boolean = True

        Dim lives As Integer = 5

        Dim hiddenword As String = Nothing

        Console.Write("Enter the word for Player 2 to guess: ")

        While True

            userinput = Console.ReadKey(True)

            If userinput.Key = ConsoleKey.Enter Then

                Console.WriteLine()

                Exit While

            ElseIf userinput.Key = ConsoleKey.Backspace Then

                If wordToGuess.Count > 0 Then

                    wordToGuess.RemoveAt(wordToGuess.Count - 1)

                    Console.Write(ChrW(8) & ChrW(32) & ChrW(8))

                End If

            Else

                letter = userinput.KeyChar

                If Asc(letter.ToUpper()) >= 65 And Asc(letter.ToUpper()) <= 90 Then

                    wordToGuess.Add(letter.ToUpper())

                    Console.Write("*")

                End If

            End If

        End While

​

        For i = 0 To wordToGuess.Count - 1

            hiddenword = hiddenword & "*"

        Next

​

        Dim x As Integer = 0

        While repeat = True

            Console.WriteLine("Word to guess: {0}", hiddenword)

            Console.WriteLine("You have {0} lives left.", lives)

            Console.Write("Letter: ")

            letter = Console.ReadLine()

            letter = letter.ToUpper()

            For j = 0 To wordToGuess.Count - 1

                If wordToGuess(j) = letter Then

                    'Replace(hiddenword(j), "*", letter)

                    x += 1

                End If

            Next

            If x = 0 Then

                lives -= 1

            End If

        End While

    End Sub

End Module