Const maxAnzahlKarten As Integer = 24 'Spielkarten auf dem Feld
Const maxAnzahlPaare As Integer = maxAnzahlKarten / 2 'Anzahl der Spielpaare
 
dim varAnzahlPaare as integer 'wobei bei der Zuweisung die Variable maximal = 
' maxAnzahlPaare sein kann
 
Dim mKarten(1 To maxAnzahlKarten) As Integer
 
 
Public Sub mischen_varKartenanzahl(varAnzahlPaare As Integer)
 
'''''''''''''''''''''''''''''''
' I N T I A L I S I E R U N G '
'''''''''''''''''''''''''''''''
 
Initialisierung
 
 
''''''''''''''''''''''''''''''''''''''''''''''''
' Z U F A L L S K A R T E N  V E R T E I L E N '
''''''''''''''''''''''''''''''''''''''''''''''''
 
 
For i = 1 To varAnzahlPaare
 
...........................
 
next i
 
end sub