VB Royal Flush

Private Function RoyalFlush(ByVal CardVal As Variant, ByVal CardSuit As Variant, ByVal CardSuitSorted As Variant)

    Dim c, C1 As Integer
    Dim SuitCheck, CardLine, FlushSuit As Integer
    Dim ArrLength, ArrAdd As Integer
    ArrLength = -1

    For c = 0 To 1
        SuitCheck = 0

        For C1 = c To (c + 4)
            SuitCheck = IIf(CardSuitSorted(C1) = CardSuitSorted(C1 + 1), SuitCheck + 1, -100)
        Next C1

        CardLine = c
        If SuitCheck = 5 Then Exit For

    Next c

    If SuitCheck <> 5 Then Exit Function

    If CardLine = 0 Then FlushSuit = CardSuitSorted(0)
    If CardLine = 1 Then FlushSuit = CardSuitSorted(1)
    If CardLine = 2 Then FlushSuit = CardSuitSorted(2)

    For c = 0 To 6
        If CardSuit(c) = FlushSuit Then CardVal(c).Tag = 1: ArrLength = ArrLength + 1
    Next c


    Dim ArrCheck() As Integer
    ReDim ArrCheck(ArrLength) As Integer


        For c = 0 To 6
            If CardVal(c).Tag = 1 Then
                ArrCheck(ArrAdd) = CardVal(c)
                ArrAdd = ArrAdd + 1
            End If
        Next c

    Call Sort(ArrCheck)

    RoyalFlush = IIf(ArrCheck(0) = 14 And ArrCheck(1) = 13 And ArrCheck(2) = 12 _
        And ArrCheck(3) = 11 And ArrCheck(4) = 10, 1, -1)



End Function