Public Sub PerfectKeyEvaluation(index As Integer)
  Dim keepKey As Boolean

  With BNETData(index)
    If canTestExpansion(.product) Then keepKey = True

    If Not keepKey Then
      .CDKey = vbNullString
      AddKeyToList .CDKey, .product, "Perfect"
      removeThisKey .CDKey, .product
      If .TestedEXP > 0 Then .TestedEXP = 0
    End If

    .numTested = .numTested + 1

    If .isExpansion Then
      AddChat vbGreen, "Index #" & index & ": Found a perfect expansion key!"

      .CDKeyExp = vbNullString
      AddKeyToList .CDKeyExp, .product, "Perfect"
      removeThisKey .CDKeyExp, .product

      If .TestedEXP = Expansion.TestEXPPerRegularKey Then
        If hasExpKey(BNETData(index).product) Then
          AddChat vbYellow, "Index #" & index & ": Tests per regular key reached. Rotating key..."

          .CDKey = vbNullString
          AddKeyToList .CDKey, .product, "Perfect"
          removeThisKey .CDKey, .product
        End If

        .TestedEXP = 0
      Else
        .TestedEXP = .TestedEXP + 1
      End If
    Else
      AddChat vbGreen, "Index #" & index & ": Found a perfect key!"
    End If

    Select Case BNETData(index).product
      Case "STAR"
        frmMain.lblControl(SCBWPerfect).Caption = frmMain.lblControl(SCBWPerfect).Caption + 1
        frmMain.lblControl(SCBWTotal).Caption = frmMain.lblControl(SCBWTotal).Caption + 1
      Case "W2BN"
        frmMain.lblControl(W2BNPerfect).Caption = frmMain.lblControl(W2BNPerfect).Caption + 1
        frmMain.lblControl(W2BNTotal).Caption = frmMain.lblControl(W2BNTotal).Caption + 1
      Case "D2DV"
        frmMain.lblControl(D2DVPerfect).Caption = frmMain.lblControl(D2DVPerfect).Caption + 1
        frmMain.lblControl(D2DVTotal).Caption = frmMain.lblControl(D2DVTotal).Caption + 1
      Case "D2XP"
        frmMain.lblControl(D2XPPerfect).Caption = frmMain.lblControl(D2XPPerfect).Caption + 1
        frmMain.lblControl(D2XPTotal).Caption = frmMain.lblControl(D2XPTotal).Caption + 1
      Case "WAR3"
        frmMain.lblControl(WAR3Perfect).Caption = frmMain.lblControl(WAR3Perfect).Caption + 1
        frmMain.lblControl(WAR3Total).Caption = frmMain.lblControl(WAR3Total).Caption + 1
      Case "W3XP"
        frmMain.lblControl(W3XPGood).Caption = frmMain.lblControl(W3XPGood).Caption + 1
        frmMain.lblControl(W3XPTotal).Caption = frmMain.lblControl(W3XPTotal).Caption + 1
    End Select
  End With
End Sub