1	1C	14	1D	27	1H	40	1S
2	2C	15	2D	28	2H	41	2S	
3	3C	16	3D	29	3H	42	3S
4	4C	17	4D	30	4H	43	4S
5	5C	18	5D	31	5H	44	5S
6	6C	19	6D	32	6H	45	6S
7	7C	20	7D	33	7H	46	7S
8	8C	21	8D	34	8H	47	8S
9	9C	22	9D	35	9H	48	9S
10	10C	23	10D	36	10H	49	10S
11	JC	24	JD	37	JH	50	JS
12	QC	25	QD	38	QH	51	QS
13	KC	26	KD	39	KH	52	KS


'0 = high card
'1 = a pair
'2 = two pair
'3 = three of a kind
'4 = straight
'5 = flush
'6 = full house
'7 = four of a kind
'8 = straight flush
'9 = royal flush

0-1
0-2
0-3
0-4
1-2
1-3
1-4
2-3
2-4
3-4



        'Royal Flush
        If (PairHand(0) = 1) And (PairHand(1) = 10) And (PairHand(2) = 11) And (PairHand(3) = 12) And (PairHand(4) = 13) Then
            Weight = 9
        End If

        If (PairHand(0) = 14) And (PairHand(1) = 23) And (PairHand(2) = 24) And (PairHand(3) = 25) And (PairHand(4) = 26) Then
            Weight = 9
        End If

        If (PairHand(0) = 27) And (PairHand(1) = 36) And (PairHand(2) = 37) And (PairHand(3) = 38) And (PairHand(4) = 39) Then
            Weight = 9
        End If

        If (PairHand(0) = 40) And (PairHand(1) = 49) And (PairHand(2) = 50) And (PairHand(3) = 51) And (PairHand(4) = 52) Then
            Weight = 9
        End If