Maybe I am being redundant, but what about something simple like this:
Dim Rand_Num As Integer
Dim cards As Variant
Dim Card as Integer
cards = array(14,10,15,11,9,14,7,10,12,8,11,14)
Randomize
Rand_Num = CInt(Rnd * 11)
card = cards(Rand_Num)
LF
"As far as the laws of mathematics...