Отсортировать в процедуре список и напечатать в основной программе - VB

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

Надо отсортировать в процедуре список работников с высшим образованием и отсортированный список передать основной программе и напечатать в файл Вроде всё логически расписал а выдаёт ошибку

Private Type Г‘Г®ГІГ°ГіГ¤Г*ГЁГЄГЁ_Г”ГЁГ°Г¬Г»
Г”Г€ГЋ As String
ГЏГ®Г« As String
ГЋГЎГ°Г*Г§ As String
Г„Г®Г«Г¦Г* As String
ГѓГ®Г¤ As Integer
Г‚Г®Г§Г° As Integer
End Type
Dim mas() As Г‘Г®ГІГ°ГіГ¤Г*ГЁГЄГЁ_Г”ГЁГ°Г¬Г», massort() As Г‘Г®ГІГ°ГіГ¤Г*ГЁГЄГЁ_Г”ГЁГ°Г¬Г»
Private Sub CommandButton1_Click()
Dim i As Integer, J As Integer, n As Integer
n = Val(InputBox("ГўГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® ГђГ*ГЎГ®ГІГ*ГЁГЄГ®Гў"))
ReDim mas(1 To n), massort(1 To n)
Open "C:\ГђГ*ГЎГ®ГІГ*ГЁГЄГЁ ГґГЁГ°Г¬Г».txt" For Output As #1
Debug.Print "Г‘ГЇГЁГ±Г®ГЄ ГђГ*ГЎГ®ГІГ*ГЁГЄГ®Гў"
Debug.Print
For i = 1 To n
mas(i).Г”Г€ГЋ = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г”Г€ГЋ " & i & "-ГЈГ® ГђГ*ГЎГ®ГІГ*ГЁГЄГ*")
mas(i).ГЏГ®Г« = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЏГ®Г« " & i & "-ГЈГ® ГђГ*ГЎГ®ГІГ*ГЁГЄГ*")
mas(i).Г‚Г®Г§Г° = Val(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г‚Г®Г§Г°Г*Г±ГІ " & i & "-ГЈГ® ГђГ*ГЎГ®ГІГ*ГЁГЄГ*"))
mas(i).ГЋГЎГ°Г*Г§ = (InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЋГЎГ°Г*Г§Г®ГўГ*Г*ГЁГҐ " & i & "-ГЈГ® ГђГ*ГЎГ®ГІГ*ГЁГЄГ*"))
mas(i).Г„Г®Г«Г¦Г* = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г„Г®Г«Г¦Г*Г®Г±ГІГј " & i & "-ГЈГ® ГђГ*ГЎГ®ГІГ*ГЁГЄГ*")
mas(i).ГѓГ®Г¤ = Val(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГѓГ®Г¤ ГЇГ°ГЁВёГ¬Г* Г*Г* Г°Г*ГЎГ®ГІГі " & i & "-ГЈГ® ГђГ*ГЎГ®ГІГ*ГЁГЄГ*"))
Debug.Print " Г”ГЁГ®:"; mas(i).Г”Г€ГЋ; " ГЏГ®Г«:"; mas(i).ГЏГ®Г«; " Г‚Г®Г§Г°Г*Г±ГІ:"; mas(i).Г‚Г®Г§Г°; " ГЋГЎГ°Г*Г§Г®ГўГ*Г*ГЁГҐ:"; mas(i).ГЋГЎГ°Г*Г§; " Г„Г®Г«Г¦Г*Г®Г±ГІГј:"; mas(i).Г„Г®Г«Г¦Г*; " ГѓГ®Г¤ ГЇГ°ГЁГ*.:"; mas(i).ГѓГ®Г¤
Write #1, i, " Г”ГЁГ®:"; mas(i).Г”Г€ГЋ; " ГЏГ®Г«:"; mas(i).ГЏГ®Г«; " Г‚Г®Г§Г°Г*Г±ГІ:"; mas(i).Г‚Г®Г§Г°; " ГЋГЎГ°Г*Г§Г®ГўГ*Г*ГЁГҐ:"; mas(i).ГЋГЎГ°Г*Г§; " Г„Г®Г«Г¦Г*Г®Г±ГІГј:"; mas(i).Г„Г®Г«Г¦Г*; " ГѓГ®Г¤ ГЇГ°ГЁГ*.:"; mas(i).ГѓГ®Г¤
Next i
Call Obraz( mas, massort, n, i)
Debug.Print "ГђГ*ГЎГ®ГІГ*ГЁГЄГЁ Г± ГўГ»Г±ГёГЁГ¬ Г®ГЎГ°Г*Г§Г®ГўГ*Г*ГЁГҐГ¬"
Debug.Print
For i = 1 To n
Debug.Print " Г”ГЁГ®: "; massort(i).Г”Г€ГЋ; " ГЏГ®Г«: "; massort(i).ГЏГ®Г«; " Г„Г®Г«Г¦Г*Г®Г±ГІГј: "; massort(i).Г„Г®Г«Г¦Г*;
Write #1, i, " Г”ГЁГ®: "; massort(i).Г”Г€ГЋ; " ГЏГ®Г«: "; massort(i).ГЏГ®Г«; " Г„Г®Г«Г¦Г*Г®Г±ГІГј: "; massort(i).Г„Г®Г«Г¦Г*;
Next i
End Sub
 
Public Sub Obraz(ByRef  mas, massort, n, i)
For i = 1 To n
If mas(i).ГЋГЎГ°Г*Г§ = "Г‚Г»Г±ГёГҐГҐ" Then
massort(i).Г”Г€ГЋ = mas(i).Г”Г€ГЋ
massort(i).ГЏГ®Г« = mas(i).ГЏГ®Г«
massort(i).Г„Г®Г«Г¦Г* = mas(i).Г„Г®Г«Г¦Г*
Next i
Dim Tmp As Integer
For i = 1 To n + 1 Step 1
For J = 1 To n - i Step 1
If massort(J) < massort(J + 1) Then
Tmp = massort(J)
massort(J) = massort(J + 1)
massort(J + 1) = Tmp
End If
Next J
Next i
End Sub

Решение задачи: «Отсортировать в процедуре список и напечатать в основной программе»

textual
                            Листинг программы 
                        

                            Private Type Сотрудники_Фирмы
ФИО As String
Пол As String
Образ As String
Должн As String
Год As Integer
Возр As Integer
End Type
Dim mas() As Сотрудники_Фирмы, massort() As Сотрудники_Фирмы, maslet() As Сотрудники_Фирмы
Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer, n As Integer
n = Val(InputBox("введите количество Сотрудника"))
ReDim mas(1 To n), massort(1 To n), maslet(1 To n)
Open "C:\Сотрудника фирмы.txt" For Output As #1
Debug.Print "<br>Список Сотрудников<br>"
Debug.Print
For i = 1 To n
mas(i).ФИО = InputBox("Введите ФИО " & i & "-го Сотрудника")
mas(i).Пол = InputBox("Введите Пол " & i & "-го Сотрудника")
mas(i).Возр = Val(InputBox("Введите Возраст " & i & "-го Сотрудника"))
mas(i).Образ = (InputBox("Введите Образование " & i & "-го Сотрудника"))
mas(i).Должн = InputBox("Введите Должность " & i & "-го Сотрудника")
mas(i).Год = Val(InputBox("Введите Год приёма на работу " & i & "-го Сотрудника"))
Debug.Print " Фио:"; mas(i).ФИО; " Пол:"; mas(i).Пол; " Возраст:"; mas(i).Возр; " Образование:"; mas(i).Образ; " Должность:"; mas(i).Должн; " Год прин.:"; mas(i).Год
Write #1, i, " Фио:"; mas(i).ФИО; " Пол:"; mas(i).Пол; " Возраст:"; mas(i).Возр; " Образование:"; mas(i).Образ; " Должность:"; mas(i).Должн; " Год прин.:"; mas(i).Год
Next i
Call Obraz(mas, massort, n, i, j)
Debug.Print
Debug.Print "<br>Сотрудники с высшим образованием<br>"
Debug.Print
Write #1, 1, "Список сотрудников с высшим образованием"
For i = 1 To n
Debug.Print " Фио: "; massort(i).ФИО; " Пол: "; massort(i).Пол; " Должность: "; massort(i).Должн;
Write #1, i, " Фио: "; massort(i).ФИО; " Пол: "; massort(i).Пол; " Должность: "; massort(i).Должн;
Debug.Print
Next i
Call Vozrast(mas, n, i, sred)
Write #1, 1, "Средний возраст Сотрудников"
Debug.Print
Debug.Print "<br>Средний возраст Сотрудников<br>"
Debug.Print
Debug.Print "Средний Возраст Сотрудников = " & sred
Write #1, 1, "Средний Возраст Сотрудников = " & sred
Call kollet(mas, maslet, i, n)
Write #1, 1, "Список  сотрудников младше 30 лет"
Debug.Print
Debug.Print "<br>Список  сотрудников младше 30 лет<br>"
Debug.Print
For i = 1 To n - 1
Debug.Print " Фио:"; maslet(i).ФИО; " Пол:"; maslet(i).Пол; " Возраст:"; maslet(i).Возр; " Должность:"; maslet(i).Должн; " Год прин.:"; maslet(i).Год
Write #1, i, " Фио:"; maslet(i).ФИО; " Пол:"; maslet(i).Пол; " Возраст:"; maslet(i).Возр; " Должность:"; maslet(i).Должн; " Год прин.:"; maslet(i).Год
Next i
End Sub
Private Sub Obraz(ByRef mas() As Сотрудники_Фирмы, ByRef massort() As Сотрудники_Фирмы, n, i, j)
Dim Tmp As String
For i = 1 To n + 1 Step 1
For j = 1 To n - i Step 1
If mas(j).ФИО > mas(j + 1).ФИО Then
Tmp = mas(j).ФИО
mas(j).ФИО = mas(j + 1).ФИО
mas(j + 1).ФИО = Tmp
End If
Next j
Next i
For i = 1 To n
If mas(i).Образ = "Высшее" Then
massort(i).ФИО = mas(i).ФИО
massort(i).Пол = mas(i).Пол
massort(i).Должн = mas(i).Должн
End If
Next i
End Sub
Private Sub Vozrast(ByRef mas() As Сотрудники_Фирмы, n, i, sred)
Dim pers, summa As Integer
sred = 0
pers = 0
summa = 0
For i = 1 To n
summa = summa + mas(i).Возр
pers = pers + 1
Next i
sred = summa / pers
End Sub
Private Sub kollet(ByRef mas() As Сотрудники_Фирмы, ByRef maslet() As Сотрудники_Фирмы, n, i)
For i = 1 To n - 1
If mas(i).Возр < 30 Then
maslet(i).ФИО = mas(i).ФИО
maslet(i).Возр = mas(i).Возр
maslet(i).Пол = mas(i).Пол
maslet(i).Должн = mas(i).Должн
maslet(i).Год = mas(i).Год
End If
Next i
End Sub
                        