Quick adjustment, I cant seem to do

Hi, Attached is a small program that allows you to enter the cards of a round of texas holdem, then it tells you the best hand from it. It only allows you though, to find the name of the best hand when 7 cards are entered, I am trying to change it so that you can do it, when 5, 6 or 7 cards are entered, and obviously the best hand will change, depending on the number of cards. Please can someone help me, I seem to be struggling.
(also, slight after thought, please coould you comment with 'new, or something where you change something, so i can see what i should have done. )
Thanks
Alex

That will be very difficult without extensive changes.

Why, surely there is somewhere in the code, saying to read from all 7 inputs, why cant it just be changed to 5? By the way i didnt write the original document

Quote:

---

Originally Posted by youngnoviceinneedofh

Why, surely there is somewhere in the code, saying to read from all 7 inputs, why cant it just be changed to 5? By the way i didnt write the original document

---

It's not "somewhere", it's most everywhere. For example in this function where you would have to account for there being NO hand(5) or perhaps hand(4).

VB Code:

Private Function GetPokerHandValue(hand As colHand) As Type_PokerHand
    Dim cardSuit As Long
    Dim cardFaceValue As Long
    
    GetPokerHandValue.HighCard = hand(5).facevalue
    
    'Check for straight flush
    If hand(1).suit = hand(2).suit And hand(1).suit = hand(3).suit And hand(1).suit = hand(4).suit And hand(1).suit = hand(5).suit Then
        If hand(1).facevalue + 1 = hand(2).facevalue Then
            If hand(2).facevalue + 1 = hand(3).facevalue Then
                If hand(3).facevalue + 1 = hand(4).facevalue Then
                    If hand(4).facevalue + 1 = hand(5).facevalue Or (hand(1).facevalue = Value_2 And hand(5).facevalue = Value_Ace) Then
                        GetPokerHandValue.HandType = PokerHand_StraightFlush
                        If hand(1).facevalue = Value_2 And hand(5).facevalue = Value_Ace Then
                            GetPokerHandValue.HighCard = hand(4).facevalue
                        End If
                        Exit Function
                    End If
                End If
            End If
        End If
    End If
 
    'Check for Four of a kind
    If (hand(1).facevalue = hand(2).facevalue And hand(1).facevalue = hand(3).facevalue And hand(1).facevalue = hand(4).facevalue) Or _
       (hand(2).facevalue = hand(3).facevalue And hand(2).facevalue = hand(4).facevalue And hand(2).facevalue = hand(5).facevalue) Then
        GetPokerHandValue.HandType = PokerHand_FourOfAKind
        If hand(4).facevalue = hand(5).facevalue Then
            GetPokerHandValue.HighCard = hand(5).facevalue
        Else
            GetPokerHandValue.HighCard = hand(4).facevalue
        End If
        Exit Function
    End If
    
    'Check for a Full House
    If (hand(1).facevalue = hand(2).facevalue And hand(1).facevalue = hand(3).facevalue And hand(4).facevalue = hand(5).facevalue) Or _
       (hand(3).facevalue = hand(4).facevalue And hand(3).facevalue = hand(5).facevalue And hand(1).facevalue = hand(2).facevalue) Then
        GetPokerHandValue.HandType = PokerHand_FullHouse
        Exit Function
    End If
    
    'Check for a flush
    If hand(1).suit = hand(2).suit And hand(1).suit = hand(3).suit And hand(1).suit = hand(4).suit And hand(1).suit = hand(5).suit Then
        GetPokerHandValue.HandType = PokerHand_Flush
        Exit Function
    End If
 
    'Check for a straight
    If hand(1).facevalue + 1 = hand(2).facevalue Then
        If hand(2).facevalue + 1 = hand(3).facevalue Then
            If hand(3).facevalue + 1 = hand(4).facevalue Then
                If hand(4).facevalue + 1 = hand(5).facevalue Or (hand(1).facevalue = Value_2 And hand(5).facevalue = Value_Ace) Then
                    GetPokerHandValue.HandType = PokerHand_Straight
                    If hand(1).facevalue = Value_2 And hand(5).facevalue = Value_Ace Then
                        GetPokerHandValue.HighCard = hand(4).facevalue
                    End If
                    Exit Function
                End If
            End If
        End If
    End If
 
    'Check for Three of a kind
    If (hand(1).facevalue = hand(2).facevalue And hand(1).facevalue = hand(3).facevalue) Or _
       (hand(2).facevalue = hand(3).facevalue And hand(2).facevalue = hand(4).facevalue) Or _
       (hand(3).facevalue = hand(4).facevalue And hand(3).facevalue = hand(5).facevalue) Then
        GetPokerHandValue.HandType = PokerHand_ThreeOfAKind
        If hand(1).facevalue = hand(2).facevalue Then
            GetPokerHandValue.HighCard = hand(3).facevalue
        ElseIf hand(4).facevalue = hand(5).facevalue Then
            GetPokerHandValue.HighCard = hand(5).facevalue
        Else
            GetPokerHandValue.HighCard = hand(4).facevalue
        End If
        Exit Function
    End If
    
    'Check for two pairs
    If (hand(1).facevalue = hand(2).facevalue And hand(3).facevalue = hand(4).facevalue) Or _
       (hand(1).facevalue = hand(2).facevalue And hand(4).facevalue = hand(5).facevalue) Or _
       (hand(2).facevalue = hand(3).facevalue And hand(4).facevalue = hand(5).facevalue) Then
        GetPokerHandValue.HandType = PokerHand_TwoPairs
        If (hand(1).facevalue = hand(2).facevalue And hand(3).facevalue = hand(4).facevalue) Then
            GetPokerHandValue.HighCard = hand(4).facevalue
        Else
            GetPokerHandValue.HighCard = hand(5).facevalue
        End If
        Exit Function
    End If
    
    'Check for one pair
    If hand(1).facevalue = hand(2).facevalue Or _
       hand(2).facevalue = hand(3).facevalue Or _
       hand(3).facevalue = hand(4).facevalue Or _
       hand(4).facevalue = hand(5).facevalue Then
        GetPokerHandValue.HandType = PokerHand_OnePair
        If hand(1).facevalue = hand(2).facevalue Then
            GetPokerHandValue.HighCard = hand(2).facevalue
        Else
            If hand(2).facevalue = hand(3).facevalue Then
                GetPokerHandValue.HighCard = hand(3).facevalue
            Else
                If hand(3).facevalue = hand(4).facevalue Then
                    GetPokerHandValue.HighCard = hand(4).facevalue
                Else
                    GetPokerHandValue.HighCard = hand(5).facevalue
                End If
            End If
        End If
        Exit Function
    End If
    
    'highest card
    GetPokerHandValue.HandType = PokerHand_HighCard
End Function