Dynamischer Objektname

Sub Verdichter_einlesen()
Dim NK1, NK2, FF1, FF2, TK1, TK2 As Verdichter
Dim a As String
Dim b As String
Dim c As String
Dim d As String
Dim e As Boolean
Dim f As Integer
Dim g As Double
Dim varVD As Variant
Dim intVD As Integer
Dim arVD As Variant
arVD = Array("NK1", "NK2", "FF1", "FF2", "TK1", "TK2")
For intVD = LBound(arVD) To UBound(arVD)
varVD = arVD(intVD) 
Set varVD = New Verdichter
a = arVD(intVD)
b = UserForm1.Controls("cbHersteller" + arVD(intVD)).Value
c = UserForm1.Controls("cbTyp" + arVD(intVD) )
d = UserForm1.Controls("lblKaeltemittel" + arVD(intVD))
e = UserForm1.Controls("chbFU" + arVD(intVD) )
f = UserForm1.Controls("tbMaxfreq" + arVD(intVD))
....usw
Next intVD
End Sub