Определить трех студентов с наибольшими баллом за экзамен, исправить код

Option Explicit
Option Compare Text
Private Type Student                ' Создаём пользовательский тип
        NomerPoSpisku  As Integer   ' Номер по списку
        Familia As String           ' Фамилия студента
        Fisika As Integer
        Algebra As Integer
        informatika As Integer
        istoriya As Integer
        ximiya As Integer
        kursinfa As Integer
        SredBall As Single
        
End Type
Dim Student(1 To 30) As Student    'Массив Student - это список студентов
Private Sub Command1_Click() 'Топ баллов
Dim i As Integer, j, kol
' Command2_Click
 Command6_Click
       MSFlexGrid1.Clear: Tabl
       kol = InputBox("Введите количество студентов" & vbCrLf, "Ввод данных", 3)
      If kol > UBound(Student) Then kol = UBound(Student)
       For i = 1 To kol
           MSFlexGrid1.TextMatrix(j, 0) = j
            MSFlexGrid1.TextMatrix(j, 1) = Student(i).Familia
            MSFlexGrid1.TextMatrix(j, 2) = Student(i).NomerPoSpisku
            MSFlexGrid1.TextMatrix(j, 3) = Student(i).Fisika
            MSFlexGrid1.TextMatrix(j, 4) = Student(i).Algebra
            MSFlexGrid1.TextMatrix(j, 5) = Student(i).informatika
            MSFlexGrid1.TextMatrix(j, 6) = Student(i).istoria
            MSFlexGrid1.TextMatrix(j, 7) = Student(i).ximiya
            MSFlexGrid1.TextMatrix(j, 8) = Student(i).kursinfa
            MSFlexGrid1.TextMatrix(j, 9) = Student(i).SredBall
       Next i
End Sub
Private Sub Command2_Click() 'Чтение из файла
Dim i As Integer
On Error Resume Next
 Open App.Path + "\" + "11.txt" For Input As #1
   For i = 1 To UBound(Student)
    Input #1, Student(i).NomerPoSpisku
    Input #1, Student(i).Familia
    Input #1, Student(i).Fisika
    Input #1, Student(i).Algebra
    Input #1, Student(i).informatika
    Input #1, Student(i).istoria
    Input #1, Student(i).ximiya
    Input #1, Student(i).kursinfa
    Student(i).SredBall = (Student(i).Fisika + Student(i).Algebra + Student(i).informatika + Student(i).istorya + Student(i).ximiya + Student(i).kursinfa) / 6
  Next i
 Close #1
 Pechat
End Sub
Sub Pechat()   '   Вывод на печать
Dim i As Integer
  Tabl
  For i = 1 To UBound(Student)
    MSFlexGrid1.TextMatrix(i, 0) = i
    MSFlexGrid1.TextMatrix(i, 1) = Student(i).Familia
    MSFlexGrid1.TextMatrix(i, 2) = Student(i).NomerPoSpisku
    MSFlexGrid1.TextMatrix(i, 3) = Student(i).Fisika
    MSFlexGrid1.TextMatrix(i, 4) = Student(i).Algebra
    MSFlexGrid1.TextMatrix(i, 5) = Student(i).informatika
    MSFlexGrid1.TextMatrix(i, 6) = Student(i).istoria
    MSFlexGrid1.TextMatrix(i, 7) = Student(i).ximiya
    MSFlexGrid1.TextMatrix(i, 8) = Student(i).kursinfa
    MSFlexGrid1.TextMatrix(i, 9) = Stusent(i).SredBall
  Next i
End Sub
Private Sub Command4_Click()   '   Сортировка по среднему баллу по возрастанию
   Dim i As Integer, j As Integer, Tmp(1 To 30) As Student
       For i = 1 To UBound(Student) Step 1
        For j = 1 To UBound(Student) - i
           If Student(j).SredBall > Student(j + 1#).SredBall Then
              Tmp(j) = Student(j)
              Student(j) = Student(j + 1#)
              Student(j + 1#) = Tmp(j)
           End If
        Next j
    Next i
Pechat
End Sub
Private Sub Command5_Click()  '   Поиск по среднему баллу
   Dim i As Integer, j As Integer, Tmp, sMr
       MSFlexGrid1.Clear: Tabl
       sMr = InputBox("Введите средний балл" & vbCrLf & "( десятичный разделитель - запятая)", "Ввод данных", 4.25)
       For i = 1 To UBound(Student) Step 1
       If Student(i).SredBall >= sMr Then
            j = j + 1
            MSFlexGrid1.TextMatrix(j, 0) = j
            MSFlexGrid1.TextMatrix(j, 1) = Student(i).Familia
            MSFlexGrid1.TextMatrix(j, 2) = Student(i).NomerPoSpisku
            MSFlexGrid1.TextMatrix(j, 3) = Student(i).Fisika
            MSFlexGrid1.TextMatrix(j, 4) = Student(i).Algebra
            MSFlexGrid1.TextMatrix(j, 5) = Student(i).informatika
            MSFlexGrid1.TextMatrix(j, 6) = Student(i).istoria
            MSFlexGrid1.TextMatrix(j, 7) = Student(i).ximiya
            MSFlexGrid1.TextMatrix(j, 8) = Student(i).kursinfa
            MSFlexGrid1.TextMatrix(j, 9) = Student(i).SredBall
        
            
            
       End If
    
    Next i
 If j = 0 Then MsgBox ("Студентов со средним баллом  " & sMr & " и выше нет"): Exit Sub
 MsgBox ("Число студентов со средним баллом  " & sMr & "  и выше равно " & j & "."): Exit Sub
End Sub
Private Sub Command6_Click() '   Сортировка по среднему баллу по убыванию
   Dim i As Integer, j As Integer, Tmp(1 To 30) As Student
       For i = 1 To UBound(Student) Step 1
        For j = 1 To UBound(Student) - i
            If Student(j).SredBall < Student(j + 1#).SredBall Then
              Tmp(j) = Student(j)
              Student(j) = Student(j + 1#)
              Student(j + 1#) = Tmp(j)
            End If
        Next j
    Next i
Pechat
End Sub
Sub Tabl()   '   Печать названий таблицы
 MSFlexGrid1.TextMatrix(0, 0) = "№"
 MSFlexGrid1.TextMatrix(0, 1) = "Фамилия"
 MSFlexGrid1.TextMatrix(0, 2) = "№ по списку"
 MSFlexGrid1.TextMatrix(0, 3) = "Физика"
 MSFlexGrid1.TextMatrix(0, 4) = "Алгебра"
 MSFlexGrid1.TextMatrix(0, 5) = "Информатика"
 MSFlexGrid1.TextMatrix(0, 6) = "История"
 MSFlexGrid1.TextMatrix(0, 7) = "Химия"
 MSFlexGrid1.TextMatrix(0, 8) = "Курс.инфа"
 MSFlexGrid1.TextMatrix(0, 9) = "Ср.балл"
 End Sub
Private Sub Form_Load()
Dim i As Integer
 MSFlexGrid1.Clear: MSFlexGrid1.ColWidth(1) = 1500: MSFlexGrid1.ColWidth(0) = 300
 For i = 2 To 9
   MSFlexGrid1.ColWidth(i) = 1600
 Next i
 Tabl
End Sub