Private Type CD
    CD_Name As String
    Dauer As String
    IAN As String
    .
    .
    .
End Type
 
Private CD(10) As CD
 
Public Function set_CD(var_name As String, var_Wert As String, CD_Nr AS _
  Integer) As Boolean
'Hierzu erfolgt meine Frage
CD(CD_Nr).var_name = var_Wert
End Function