Dim choice1(0 To 4) As String
Dim Word As String
Dim Letter As String
Dim counter As Integer

Private Sub cmdGuess_Click()
For I = 1 To Len(Word)
Letter = Mid(Word, I, 1)
Call Check
Next I
lblPicked.Caption = lblPicked.Caption & txtLetter & ","
If counter = Len(Word) Then
MsgBox "You guessed all the letters"
End If
End Sub

Private Sub Check()
If Letter = txtLetter Then
MsgBox txtLetter & " " & "is in the word"
lblRight.Caption = lblRight.Caption & txtLetter & ","
counter = counter + 1
End If
End Sub

Private Sub Form_Load()
choice1(0) = "cat"
choice1(1) = "dog"
choice1(2) = "mouse"
choice1(3) = "rat"
choice1(4) = "toronto"
Randomize
Word = choice1(Int(Rnd * 5)) 'Randomizes
counter = 0
If Word = "cat" Then
lblCat = "Animal"
lblLetters = "3 Letters"
End If
If Word = "dog" Then
lblCat = "Animal"
lblLetters = "3 Letters"
End If
If Word = "mouse" Then
lblCat = "Animal"
lblLetters = "5 Letters"
End If
If Word = "rat" Then
lblCat = "Animal"
lblLetters = "3 Letters"
End If
If Word = "toronto" Then
lblCat = "Place"
lblLetters = "7 Letters"
End If
End Sub