For Schleife mit Variable

Sub Schleife()
Dim rho As Variant 'Dichte
Dim i As Variant   'Variable
For i = 1 To 23
If SysConfiguration.Controls("CB_Z" & i).Value  "" And SysConfiguration.Controls("TB2_Z" & i)  _
 "" Then
rho(i) = Round(REFPROP.Density(SysConfiguration.Controls("CB_Z" & i).Value, "TP", "SI", Tein,  _
pein), 2) * CDbl(SysConfiguration.Controls("TB2_Z" & i).Value)
Else
rho(i) = 0
End If
Next i
End Sub