Программа, составляющая перечень хозяйств и суммирующая их автопарк

Option Strict On
Option Explicit On
Module Module1
 
    Public n As Integer     'Количество хозяйств
    Public m As Integer     'Количество марок
    Public cars() As String 'Названия марок
    Public farms() As String  'Названия хозяйств
    Public need() As Integer    'Потребность в марках
    'Процедура  ввода исходных данных с клавиатуры 
    Sub vvod(ByRef cars() As String, ByRef farms() As String, ByRef need() As Integer, ByRef n As Integer,
             ByRef m As Integer, ByRef p1 As String, ByRef p2 As String, ByVal p3 As String)
        Dim i, j As Integer
        n = CInt(Val(InputBox("Введите количество хозяйств")))
        m = CInt(Val(InputBox("Введите количество марок")))
        ReDim farms(n - 1), farms(m - 1), need(m - 1)
        p1 = "" : p2 = "" : p3 = ""
        For i = 0 To n - 1
            farms(i) = InputBox("Хозяйство")
            p1 = p1 & farms(i) & vbNewLine
            For j = 0 To m - 1
                cars(j) = InputBox("Название марки")
                p2 = p2 & cars(j) & vbNewLine
                need(j) = CInt(InputBox("Потребность в марке"))
                p3 = p3 & need(j) & vbNewLine
            Next j
        Next i
    End Sub
 
    Sub vivod(ByVal z As String, ByVal LB As ListBox)
        LB.Text = z
    End Sub
 
    'Процедура суммирования марок
    Sub sum()
 
    End Sub
End Module
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) _
                              Handles Button1.Click
        Dim p1 As String = ""
        Dim p2 As String = ""
        Dim p3 As String = ""
        vvod(farms, cars, need, n, m, p1, p2, p3)
        vivod(p1, ListBox1)
        vivod(p2, ListBox2)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) _
                              Handles Button2.Click
        Form2.Show()
    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 p1 As String = ""
        Dim p2 As String = ""
        'sum()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) _
                              Handles Button2.Click
        End
    End Sub
 
End Class