Нужно создать коллекцию из UDT элементов  
 
Type HistoryPeak  
...  
End Type  
 
Dim HPeakCollection As New Collection  
 
и добавить новые UDT элементы.  
Планировалось как-то так  
 
   For Each ...  
       Dim HPeak As New HistoryPeak  
       HPeakCollection.Add HPeak  
       Set HPeak = Nothing  
   Next...  
 
но не работает.  
Оказывается Dim...New и Set...New используются только с классами.  
Как создать новые UDT элементы для включения в коллекцию.  
Или это противоречит идеологии VBA и нужно отказаться от UDT и определять новые элементы через класс.