I am trying to create a string in a input box and then display the string with dashes in the lblbox for a hangman game for a class : so  here is the code. These are my tasks that I am struggling with. Keep in my mind I am very new to programming. I am struggling a lot with this class and just am trying to get by with any passing grade. 

-edit the program to allow a Secret Word of any length.  

-the program will allow the ‘guesser’ to guess 2 times the length of the word.  As an example the word ‘code’ will allow 8 total guesses.  

-As the user guesses at letters contained in the word the program will:
Count the number of attempts the user has completed.
Replace the appropriate dash (-) with the correct letter, if the correct letter has been guessed.

-When all the letters have been guessed correctly all the dashes (-) should be replaced with the appropriate letters, and a message box should appear stating “Great Job playing Hangman.!”  

-If the user is unable to guess the correct word in the amount of guesses allowed; the dashes (-) should be replaced with GAME OVER! and a message box should appear stating “Sorry the correct word was________”

-2 bonus points will be awarded for displaying all incorrect letters guess in a 3rd label control.

-4 more additional bonus points will be awarded for not allowing, or counting a user who guesses the same incorrect letter twice.
--------------------------------------------------------------------

Dim strSecretWord As String
        Dim strLetterGuessed As String
        Dim blnDashReplaced As Boolean
        Dim intNumberOfRemainingGuesses As Integer = 10
        Dim intNumofGuesses As Integer = 0

        lblSecretWord.Text = ""
        lblNumberOfAttempts.Text = ""

        'start game and have 1st user input a 5 letter word that 2nd player needs to guess
        strSecretWord = InputBox("Please input a 5 letter word for user to guess:", "Please input secret word.").ToUpper


        'displays five dashes for the secret word
        lblSecretWord.Text = lblSecretWord.Text & "-----"


        'guessing player recieves inputbox to make letter guesses 
        MessageBox.Show("The length of the word is 5 letters, you will be given 10 guesses", "10 guesses", MessageBoxButtons.OK)
        MessageBox.Show("Player who gets to guess, BE READY!", "Good Luck Guessing", MessageBoxButtons.OK)

        'Counts number of attempts player gets (10) and replaces dashes with guessed letter if correct
        'If guessed letter was incorrect, user loses a turn
        For intNumberofGuesses = 1 To 10
            strLetterGuessed = InputBox("Please guess a letter:", "Letter Guess").ToUpper


            'Uses an IntIndex counter of 0 to 4 to execute 5 times (5 dashes)
            'Also uses the value of intIndex to check each of the 5 locations of the strSecretWord
            For intIndex As Integer = 0 To 4

                'if the user has guessed a correct letter then remove a dash and insert the correct letter guessed
                If strSecretWord.Substring(intIndex, 1) = strLetterGuessed Then
                    lblSecretWord.Text = lblSecretWord.Text.Remove(intIndex, 1)
                    lblSecretWord.Text = lblSecretWord.Text.Insert(intIndex, strLetterGuessed)
                    blnDashReplaced = True
                End If
            Next intIndex

            'If the user guessed a correct letter on their last guess the blnDashReplaced is set and the true condition of the If statement is executed
            If blnDashReplaced = True Then

                'if there are no more dashes, and the game has been solved.
                If lblSecretWord.Text.Contains("-") = False Then
                    MessageBox.Show("Great Job playign Hangman!", "Game Over", MessageBoxButtons.OK)
                    lblRemainingNumberOfAttempts.Text = ""
                    lblNumberOfAttempts.Text = ""
                    Exit Sub
                Else
                    blnDashReplaced = False
                End If
            Else

            End If
            lblNumberOfAttempts.Text = intNumberofGuesses
            intNumberOfRemainingGuesses = intNumberOfRemainingGuesses - 1
            lblRemainingNumberOfAttempts.Text = intNumberOfRemainingGuesses

        Next
        lblSecretWord.Text = "GAME OVER!"
        MessageBox.Show("Better luck next time. Sorry the correct word was " & strSecretWord & ".", "You Lost", MessageBoxButtons.OK)
        lblRemainingNumberOfAttempts.Text = ""
        lblNumberOfAttempts.Text = ""


