Dim Spiele(63) As tSpiel
Dim Gruppe(3) As tGruppe

Es wird nach dem Meisterschaftssystem gespielt. Jede Mannschaft spielt einmal _
  gegen jede andere Mannschaft ihrer Gruppe. Ein Sieg ergibt drei, ein _
  Unentschieden einen und eine Niederlage null Punkte.
 
Die Rangliste jeder Gruppe wird wie folgt bestimmt:
(a) die Anzahl Punkte aus allen Gruppenspielen;
Wenn zwei oder mehr Mannschaften aufgrund des oben erwähnten Kriteriums gleich _
  abschneiden, wird ihre Platzierung aufgrund der folgenden Kriterien bestimmt:
(b) die Anzahl Punkte aus den Direktbegegnungen der punktgleichen Mannschaften _
in den Gruppenspielen;
(c) die Tordifferenz aus den Direktbegegnungen der punktgleichen Mannschaften _
in den Gruppenspielen;
(d) die grössere Anzahl der in den Direktbegegnungen der punktgleichen _
Mannschaften in den Gruppenspielen erzielten Tore;
(e) die Tordifferenz aus allen Gruppenspielen;
(f) die Anzahl der in allen Gruppenspielen erzielten Tore;
(g) Losentscheid durch die Organisationskommission für die FIFA _
  Fussball-Weltmeisterschaft™.

Option Explicit
 
Private Type tSpiel
  Datum As Date
  MannschaftA As String
  MannschaftB As String
  ToreA As Integer
  ToreB As Integer
End Type
 
Private Type tGruppe
  Mannschft As String
  Spiele As Integer
  Punkte As Integer
  Tore As Integer
  GegenTore As Integer
  TorDiff As Integer
End Type