Private Sub cboGroupSequ_Click(Index As Integer)
 
     'Inhalt der ComboBox = test (cboGroupSequ(2).Text=test)
 
    ArrangeGroupSequence Test, cboGroupSequ ' 1. Aufruf
 
End Sub
 
'Auswertung Funktion
Function ArrangeGroupSequence(Form As Form, ComboBox As ComboBox)
 
   'Die Variable "ComboBox" hat den Wert "test"
  ' Es sollte aber "cboGroupSequ" drin stehen
 
     Dim Wert as String
 
      Wert = Form.ComboBox(2).Text  'Auswertung
 
End Function