I need help with this class assignment. It's a simple hangman program. I got everything down except on how to make the right guesses show up in the right place and the right order of the answer. For example if the word was Visual and the player guess "U" it would show up _ _ _ U _ _ ( _ = blank spaces). Here are my codes so far:

Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
Dim strAnswer As String
Dim strGuess As String
Dim intRight As Integer
Dim intWrong As Integer

intWrong = 0
intRight = 0

strAnswer = txtAnswer.Text
txtAnswer.Text = ""

Do
strGuess = InputBox("Make A Guess")
If Len(strGuess) <> 1 Then
MsgBox("You must enter one letter!", MsgBoxStyle.Exclamation, "Error")

ElseIf InStr(strAnswer, strGuess) = 0 Then
intWrong = intWrong + 1
lblWrong.Text = lblWrong.Text & strGuess
ElseIf InStr(strAnswer, strGuess) > 0 Then
intRight = intRight + 1
lblRight.Text = lblRight.Text & strGuess
End If

If intWrong = 1 Then
PicHead.Visible = True
ElseIf intWrong = 2 Then
PicBody.Visible = True
ElseIf intWrong = 3 Then
PicLeftArm.Visible = True
ElseIf intWrong = 4 Then
PicRightArm.Visible = True
ElseIf intWrong = 5 Then
PicLeftLeg.Visible = True
ElseIf intWrong = 6 Then
PicRightLeg.Visible = True
MsgBox("You Lose!", MsgBoxStyle.OKOnly, "Game Over")
End If

If intRight = Len(strAnswer) Then
MsgBox("You Win!", MsgBoxStyle.OKOnly, "Game Over")
End If

Loop While intWrong < 6 And intRight < Len(strAnswer)

End Sub

End Class


I think i need to add or change some codes in this region:

ElseIf InStr(strAnswer, strGuess) > 0 Then
intRight = intRight + 1
lblRight.Text = lblRight.Text & strGuess
End If