Hangman VB Not Working

Dim myword, guess As String
Dim mywordlen, x As Integer
Dim flag As Boolean
Console.WriteLine("Player 1, please enter a word to guess")
myword = Console.ReadLine()
mywordlen = myword.Length - 1
Dim answer(mywordlen), displayword(mywordlen) As Char
Dim score As Integer = 10

For x = 0 To mywordlen
    answer(x) = Mid(myword, x + 1, 1)
    displayword(x) = "_"
Next
While score > 0 
    Console.WriteLine("Please guess a letter")
    guess = Console.ReadLine()  'Assumes user only types one letter
    flag = False
    For x = 0 To mywordlen
        If guess = answer(x) Then
            displayword(x) = guess
            flag = True
        End If
    Next
    If flag Then
        If New String(displayword) = myword Then
            Console.WriteLine("Congratulations! You won!")
            Exit While
        Else
            Console.WriteLine("Correct! {0}", New String(displayword))
        End If
    Else
        Console.WriteLine("Incorrect. {0}", New String(displayword))
        score -= 1
    End If
End While
Console.WriteLine("Game over. The word was {0}", myword)