Люди! Помогите пожалуйста разобраться в чем проблема
Вот задание:
"Создать ффайл, содержащий сведения о месячной заработной плате рабочих завода. Каждая запись содержит поля: фамилия рабочего, наименование цеха, размер заработной платы за месяц.

Вычислить общую сумму выплат за месяц по цеху X, а так же среднемесячный заработок рабочего этого цеха.


Код:
Private Sub Command1_Click()
Dim Fam() As String, Zeh() As Byte
Dim Zar() As Integer
Dim i As Integer

Open "C:\1.txt" For Input As #1
Input #1, razmer 'Первый элемент файла обозначаем как Razmer
ReDim Fam(razmer), Zeh(razmer), Zar(razmer) 'Переопределяем переменые
Close #1

For i = 1 To razmer
Input #1, Fam(i), Zeh(i), Zar(i) 'Массивом задаем считывающиеся элементы
Next i

Dim b As Integer 'суммарная зарплата в цехе
Dim c As Integer 'средняя зарплата в цехе


b = Val(Text1.Text) 'Номер цеха вводится в textbox

For i = 1 To razmer
If b = Zeh(i) Then Sum = Sum + Zar(i) 'общую сумму выплат за месяц по цеху b
If c = Zeh(i) Then c = (Sum + Zar(i)) / b 'размер заработной платы за месяц
Next i

End Sub



При запуске выделяет строку

Код:
Input #1, Fam(i), Zeh(i), Zar(i)

и пишет BadFile name or number


Текстовой файл 1.txt выглядит следующим образом:

Цитата:

4
Крикунов, 1, 10000
Иванов, 1, 12000
Петров, 2, 4000
Сидоров, 2, 9000



Скажите пожалуйста в чем ошибка, и правильно ли я делаю эту программу?