Добавить конструктор класса в приведенный код

Option Strict On
Option Explicit On
Module module1
    'объявление класса
    Public vv As New Class1
    'кол-во студентов
    Public n As Integer
    'массив данных по студентам
    Public a(,) As String
End Module
Public Class Class1
    'процедура ввода данных вручную
    Public Sub vvod_kl(ByRef a(,) As String)
        Dim i, j As Integer
        For i = 0 To n
            For j = 0 To 5
                a(i, j) = InputBox("введите данные по студенту номер " + CStr(i + 1) + " последовательно: фамилия/номер группы/1я оценка/2я оценка/3я оценка/4я оценка")
            Next
        Next
    End Sub
    'обработка
    Public Sub sort(ByVal a(,) As String)
        Dim i, a1, b, c, d As Integer
        For i = 0 To n
            a1 = CInt(a(i, 2))
            b = CInt(a(i, 3))
            c = CInt(a(i, 4))
            d = CInt(a(i, 5))
            'если хотя бы одна оценка равна тройке,строка данных о студенте затирается,в итоге выводятся только хорошисты
            If (a1<= 3) Or (b<= 3) Or (c<= 3) Or (d<= 3) Then
                a(i, 0) = "" : a(i, 1) = "" : a(i, 2) = "" : a(i, 3) = "" : a(i, 4) = "" : a(i, 5) = ""
            End If
        Next
    End Sub
    'вывод матрицы
    Sub printmatr1(ByRef a(,) As String, ByRef LB As ListBox)
        Dim i, j As Integer
        Dim p As String
        p = ""
        For i = 0 To n
            For j = 0 To 5
                If a(i, j) <> "" Then
                    p = p + CStr(a(i, j)) + Space(1)
                End If
            Next
            If p <> "" Then LB.Items.Add(p)
            p = ""
        Next
    End Sub
End Class
Public Class Form1
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.Show()
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        n = CInt(TextBox1.Text) - 1
        ReDim a(n, 5)
        vv.vvod_kl(a)
        vv.printmatr1(a, ListBox1)
    End Sub
End Class
Public Class Form2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim I As Integer, J As Integer
        Dim Flag As Boolean
        vv.sort(a)
        For I = 0 To UBound(a, 1)
            If a(I, 1) <> "" Then
                Flag = False
                For J = 0 To ListBox4.Items.Count - 1
                    If ListBox4.Items(J) = a(I, 1) Then
                        ListBox4.Items.Insert(J + 1, a(I, 0) & " " & a(I, 2) & " " & a(I, 3) & " " & a(I, 4) & " " & a(I, 5))
                        Flag = True
                        Exit For
                    End If
                Next
                If Not Flag Then
                    ListBox4.Items.Add(a(I, 1))
                    ListBox4.Items.Add(a(I, 0) & " " & a(I, 2) & " " & a(I, 3) & " " & a(I, 4) & " " & a(I, 5))
                End If
            End If
        Next I
    End Sub
End Class

sub new(параметры)
mybase.new()
'. . .
end sub