Option Explicit

Dim strSecretColor1 As String
Dim strSecretColor2 As String
Dim strSecretColor3 As String
Dim intNumTries As Integer

Private Sub Form_Load()
    strSecretColor1 = "R"
    strSecretColor2 = "Y"
    strSecretColor3 = "B"
    intNumTries = 0
End Sub

Private Sub cmdCheckGuess_Click()
    Dim intColorsCorrect As Integer, intPosCorrect As Integer
    Dim strGuessColor1 As String, strGuessColor2 As String
    Dim strGuessColor3 As String

    intNumTries = intNumTries + 1
    intColorsCorrect = 0
    intPosCorrect = 0

    strGuessColor1 = txtColor1
    strGuessColor2 = txtColor2
    strGuessColor3 = txtColor3

    If strGuessColor1 = strSecretColor1 And strGuessColor2 = strSecretColor2 And strGuessColor3 = strSecretColor3 Then
        intColorsCorrect = 3
        intPosCorrect = 3
        MsgBox "Number of tries: " & intNumTries
    Else
        If strGuessColor1 = strSecretColor1 Then
            intColorsCorrect = intColorsCorrect + 1
            intPosCorrect = intPosCorrect + 1
        ElseIf strGuessColor1 = strSecretColor2 Or strGuessColor1 = strSecretColor3 Then
            intColorsCorrect = intColorsCorrect + 1
        End If
        If strGuessColor2 = strSecretColor2 Then
            intColorsCorrect = intColorsCorrect + 1
            intPosCorrect = intPosCorrect + 1
        ElseIf strGuessColor2 = strSecretColor1 Or strGuessColor2 = strSecretColor3 Then
            intColorsCorrect = intColorsCorrect + 1
        End If
        If strGuessColor3 = strSecretColor3 Then
            intColorsCorrect = intColorsCorrect + 1
            intPosCorrect = intPosCorrect + 1
        ElseIf strGuessColor3 = strSecretColor1 Or strGuessColor3 = strSecretColor2 Then
            intColorsCorrect = intColorsCorrect + 1
        End If
    End If

    lblColorsCorrect = intColorsCorrect
    lblPositionsCorrect = intPosCorrect
End Sub

Private Sub cmdDone_Click()
    Unload Me
End Sub