Function getHighestPokerCombo(ByVal strGuessedItems As String)

    Dim arr(1 To 3) As String
    Dim i           As Integer
    Dim strCombo    As String
    Dim result      As String
    
    arr(1) = "1"
    arr(2) = "2"
    arr(3) = "X"
    
    strCombo = "0000"
   
    For i = 1 To 3
        Select Case Len(strGuessedItems) - Len(Replace(strGuessedItems, arr(i), ""))
            Case Is > 3
                Mid(strCombo, 1, 1) = "4"
            Case 3
                Mid(strCombo, 2, 1) = "3"
            Case 2
                If Mid(strCombo, 3, 1) = "0" Then
                    Mid(strCombo, 3, 1) = "2"
                Else
                    Mid(strCombo, 4, 1) = "2"
                End If
        End Select
    Next i
    
    If Mid(strCombo, 1, 1) = "4" Then
        result = "Каре"
    ElseIf Mid(strCombo, 2, 2) = "32" Then
        result = "Фул-Хаус"
    ElseIf Mid(strCombo, 2, 1) = "3" Then
        result = "Сет"
    ElseIf Mid(strCombo, 3, 2) = "22" Then
        result = "Две пары"
    ElseIf Mid(strCombo, 3, 1) = "2" Then
        result = "Пара"
    Else
        result = "мимо кассы"
    End If
        
    getHighestPokerCombo = result
    
End Function