fullword = "jungle";
word = ("j","u","n","g","l","e");
player = ("-","-","-","-","-","-");

while (win = false) {
     print "So far, you have.. " + player;
     print "What is your next guess? ";
     input guess;

     for (i = 0; i < 6; i++) {
          if (guess = word[i]) {
               player[i] = guess;
          }
          ' just add the folliwing
          else
          {
            textbox.text=""
            textbox.disable=true
           }     }

     checker = player[0] + player[1] + player[2] + player[3] + player[4] + player[5];
     if (checker = word[6]) {
          win = true;
     }
}

print "You win!";

fullword = "jungle"; word = ("j","u","n","g","l","e"); player = ("-","-","-","-","-","-"); while (win = false) { print "So far, you have.. " + player; print "What is your next guess? "; input guess; for (i = 0; i < 6; i++) { if (guess = word[i]) { player[i] = guess; } } checker = player[0] + player[1] + player[2] + player[3] + player[4] + player[5]; if (checker = word[6]) { win = true; } } print "You win!";

Option Explicit
 
Private strWord As String
Private strGuessLetter As String
Private arrWord As Variant
Private arrLetters As Variant
Private intTotalLetters As Integer
 
Private Sub Command1_Click()
    Dim i As Integer
 
    strWord = txtGuessWord.Text
    txtGuessWord.Text = "-"
 
    intTotalLetters = Len(strWord)
 
    ReDim arrWord(intTotalLetters) As String
    ReDim arrLetters(intTotalLetters) As String
 
    For i = 1 To intTotalLetters
        arrWord(i) = Mid(strWord, i, 1)
        arrLetters(i) = "-"
        txtWord.Text = txtWord.Text & arrLetters(i) & " "
    Next
 
 
 
End Sub
 
Private Sub Command2_Click()
    Dim i As Integer, o As Integer
    Dim blnGuess As Boolean
 
    strGuessLetter = txtLetterGuess.Text
    txtLetterGuess.Text = vbNullString
 
    For i = 1 To intTotalLetters
        If arrWord(i) = strGuessLetter Then
            arrLetters(i) = strGuessLetter
            txtWord.Text = vbNullString
            For o = 1 To intTotalLetters
                txtWord.Text = txtWord.Text & arrLetters(o) & " "
            Next
            blnGuess = True
        Else
            If blnGuess Then
                'nothing
            Else
                'letter is not in list
                blnGuess = False
            End If
        End If
    Next
    If blnGuess = False Then
        lblGuesses.Caption = lblGuesses.Caption & " " & strGuessLetter
    End If
 
    If InStr(1, txtWord.Text, "-") = 0 Then
        Label1.Caption = "winner!"
    Else
        Label1.Caption = "enter your next letter"
    End If
End Sub