Чтение массива из файла и выравнивание его по столбикам на форме

Option Strict On
Option Explicit On
Imports System.IO
 
Public Module Module1
    Public inpArr() As String
 
    Public Function ArrRead(ByRef inpar() As String) As Boolean
        Dim FD As New OpenFileDialog(), StrFN As String, RF As StreamReader, n As Integer
        FD.InitialDirectory = "с:\"
        FD.Filter = "Текстовые файлы (*.txt)|*.txt|Все файлы (*.*)|*.*"
        FD.FilterIndex = 1
        FD.RestoreDirectory = True
        If FD.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Try
                n = 0
                StrFN = FD.FileName
                RF = New StreamReader(StrFN)
                Do While Not RF.EndOfStream
                    ReDim Preserve inpar(n)
                    inpar(n) = RF.ReadLine
                    n = n + 1
                Loop
                RF.Close()
                Return True
            Catch ex As Exception
                MessageBox.Show("Невозможно прочитать файл. " & ex.Message)
 
            End Try
        Else
            Return False
        End If
    End Function
 
    Public Sub ArrOut(ByVal LB As ListBox, ByVal inpar() As String)
        Dim i As Integer
        LB.Items.Clear()
        For i = 0 To UBound(inpar)
            LB.Items.Add(inpar(i))
        Next
 
    End Sub
 
    Public Sub ArrDim(ByRef zparr(,) As Integer, ByRef dms() As Integer, ByRef famarr() As String, ByVal inparr() As String)
        Dim Str() As String
        Str = inparr(0).Split
        ReDim dms(1)
        dms(0) = UBound(Str) - 1 'количество зарплат из первой строки без фамилии
        dms(1) = UBound(inparr)  'количество строк в inparr = количество фамилий  
        ReDim zparr(dms(0), dms(1))
        ReDim famarr(dms(1))
    End Sub
 
    Public Sub ArrConvert(ByRef zpArr(,) As Integer, ByVal dms() As Integer, ByVal famar() As String, ByVal inparr() As String)
        Dim strarr() As String, n, i As Integer
        For i = 0 To dms(1)
            strarr = inparr(i).Split
            famar(i) = strarr(0)
            For n = 0 To dms(0)
                zpArr(n, i) = CInt(strarr(n + 1))
            Next
        Next
    End Sub
 
    Public Sub ArrMinFind(ByRef TT(,) As Integer, ByVal zpArr(,) As Integer, ByRef min As Integer, ByVal dms() As Integer)
        Dim minexc As Integer
        min = zpArr(0, 0)
        For i = 0 To dms(0)
            For j = 0 To dms(1)
                If zpArr(i, j) < min Then
                    min = zpArr(i, j)
                End If
            Next
        Next
 
        For j = 0 To zpArr.GetLength(1) - 1
            For i = 0 To zpArr.GetLength(0) - 1
                If zpArr(i, j) = min Then
                    minexc = minexc + 1
                    ReDim Preserve TT(1, minexc - 1)
                    TT(0, minexc - 1) = i
                    TT(1, minexc - 1) = j
                End If
            Next
 
        Next
 
    End Sub
 
    Public Sub ArrayLowSalaryList(ByVal TT(,) As Integer, ByRef min As Integer, ByRef arrlin() As String, ByVal famarr() As String)
        Dim arrborder, curwork, curmonth, save_worker, poz, j As Integer
 
        arrborder = TT.GetLength(1) - 1
        poz = 0
        save_worker = TT(1, 0)
        For j = 0 To arrborder
            curwork = TT(1, j)
            curmonth = TT(0, j)
            If save_worker <> curwork Then
                arrlin(poz) = famarr(save_worker) + ": " + arrlin(poz)
                poz = poz + 1
                save_worker = curwork
            End If
            ReDim Preserve arrlin(poz)
            arrlin(poz) = arrlin(poz) + Space(1) + NumtoMonth(curmonth)
        Next
        arrlin(poz) = famarr(save_worker) + ": " + arrlin(poz)
    End Sub
    Public Sub ArrLSLOut(ByVal arrlin() As String, ByVal LB As ListBox, ByVal TB As TextBox, ByVal min As Integer)
        For i = 0 To UBound(arrlin)
            LB.Items.Add(arrlin(i))
        Next
        TB.Text = CStr(min)
    End Sub
    Public Function NumtoMonth(ByVal num As Integer) As String
        Dim month(), m As String
        m = ("Январь Февраль Март Апрель Май Июнь Июль Август Сентябрь Октябрь Ноябрь Декабрь")
        month = m.Split(CChar(Space(1)))
        Return month(num)
    End Function
End Module