Private Sub cboGroupSequ_Click(Index As Integer)
 
        ArrangeGroupSequence Test, cboGroupSequ ' 1. Aufruf
 
End Sub
 
Private Sub cboTest_Click(Index As Integer)
 
        ArrangeGroupSequence Test, cboTest  ' 2 Aufruf
 
End Sub
 
'Auswertung Funktion
Function ArrangeGroupSequence(Form As Form, ComboBox As ?)
 
     Dim Wert as String
 
      Wert = Form.ComboBox(2).Text  'Auswertung
 
End Function