Работа с файлами: найти наибольшее количество кубиков одинакового размера - VB

Формулировка задачи:

помогите плз зделать задание к сессии=) сам никак не могу разобраться че к чему с этими файлами=(( вот задание: дан файл содержащий сведения о кубиках: размер каждого кубика (длина ребра в сантиметрах), его цвет (красный, желтый, зеленый или синий) и материал (деревянный, металлический, картонный). Составить программу нахождения: 1) количства кубиков каждого из перечисленных цветов и их суммарного объема 2)количество кубиков каждого материала и их суммарного объема по материалам (2 дерев. куб. на на 20 см3, 3 метел. куб на 41 см3) 3) наибольшее количество кубиков одинакового размера (больше всего кубиков с ребром 3 см)

Решение задачи: «Работа с файлами: найти наибольшее количество кубиков одинакового размера»

textual
                            Листинг программы 
                        
 
                            
                        
Private Enum Zvet
     Red           '0
     Yellow        '1
     Green         '2
     Blue          '3
End Enum
 
Private Enum Material
     Wood           '0
     Metall         '1
     Carton         '2
End Enum
 
Private Type Cubic
     Material As Material
     Rasmer As Integer
     Zvet As Zvet
End Type
 
Dim Cubic() As Cubic
Private Sub Command1_Click()
Dim i As Integer, obCub As Integer, kolcub As Integer
Dim redCub As Integer, yelCub As Integer, greCub  As Integer, bluCub As Integer
Cls
  Open App.Path & "\1.txt" For Input As #1
      Do While Not EOF(1)
        i = i + 1: kolcub = i
        ReDim Preserve Cubic(1 To kolcub)
        Input #1, Cubic(i).Material, Cubic(i).Rasmer, Cubic(i).Zvet
        Print Cubic(i).Material, Cubic(i).Rasmer, Cubic(i).Zvet
      Loop
  Close #1
  
  For i = 1 To kolcub
     Select Case Cubic(i).Zvet
          Case Red:    redCub = redCub + 1
          Case Yellow: yelCub = yelCub + 1
          Case Green:  greCub = greCub + 1
          Case Blue:   bluCub = bluCub + 1
     End Select
     obCub = obCub + (Cubic(i).Rasmer) ^ 3
  Next i
  
  Print "Всего кубиков  " & kolcub
  Print "Красных кубиков - " & redCub
  Print "Жёлтых кубиков  - " & yelCub
  Print "Зелёных кубиков  - " & greCub
  Print "Синих кубиков  - " & bluCub
  Print "Объём всех кубиков  " & obCub
End Sub