Private Sub Form_Load()
 
Dim i%, Z%, Tmp%, L%(11), A$
 
For i = 0 To 3
  L(i) = 1
  L(i + 4) = 2
  L(i + 8) = 3
Next i
Randomize
For i = 0 To 11
  Z = Int(Rnd * 12)
  Tmp = L(i): L(i) = L(Z): L(Z) = Tmp
Next i
A = ""
For i = 0 To 11
  A = A & (i + 1) & Space(3) & Choose(L(i), "Schlichter", "Konfliktpartei", _
    "Beobachter") & vbCr
Next i
MsgBox A
 
End Sub

Gruss,

Zardoz