Dim cl_test a new class_test
For Each c As Control In Me.pan_typ_anlegen_aendern.Controls
  If TypeOf c Is ComboBox Then
    If IsNumeric(c.Text) Then
      tmp_str = "Stufe_" & Mid(c.Name.ToString, 6, 3) 'ergebniss z.B. Stufe1_v 
      cl_test. 'hier muss jetzt der String kommen tmp_str = c.Text      
    End If
  End If
Next

____________________________________________________________________

Wie lange eine Minute ist, h?ngt davon ab auf welcher Seite der Toilettent?r man steht