Function Create_Group()
 
 Dim ws0 As Workspace
 Dim newGroup0 As Group
 Dim i As Integer           'Zählschleifen Ende
 Dim z As Long              'Zufallszahl übergeben
 Dim pool(4) As Double      'Ein Array mit 5 verschiedenen Inhalten wird zur 
 ' Verfügung gestellt
 Dim obereGrenze As Long
 Dim untereGrenze As Long
 
 obereGrenze = 99999        'Die höchste Zahl der Zufallszahl wird definiert
 untereGrenze = 1000        'Die kleinste Zahl der Zufallszahl wird definiert
 i = 0
 
'Es wird ein Pool mit verschiedenen GroupID's zur Verfügung gestellt
 Do While i <= 4
  z = Int((obereGrenze - untereGrenze + 1) * Rnd + untereGrenze)
  pool(i) = z
  i = i + 1
 Loop
'Die Auswertung der Zufallszahlen
MsgBox pool(0) & " / " & pool(1) & " / " & pool(2) & " / " & pool(3) & " / " & _
  pool(4)
 
Set ws0 = DBEngine.Workspaces(0)
Set newGroup0 = ws0.CreateGroup("BigBoxx", pool(0))
ws0.Groups.Append newGroup0
ws0.Groups.Refresh
 
 
End Function