Вопрос с массивом !!) я сам сделал..чуть чуть подправить надо...а как не знаю?!!((((

Module Module1
 
    Public n As Integer
    Public kv() As String
    Public fam() As String
    Public remont() As String
 
    Public Sub reshenie(ByVal lb As ListBox)
        Dim i As Integer
        lb.Items.Add("Нужен полный ремонт")
        For i = 0 To n - 1
            If remont(i) = "polniy" Then lb.Items.Add(kv(i) & "     " & fam(i))
        Next
        lb.Items.Add("")
        lb.Items.Add("Нужен средний ремонт")
        For i = 0 To n - 1
            If remont(i) = "sredniy" Then lb.Items.Add(kv(i) & "     " & fam(i))
        Next
        lb.Items.Add("")
        lb.Items.Add("Не нуждается в ремонте")
        For i = 0 To n - 1
            If remont(i) = "otsutstvie" Then lb.Items.Add(kv(i) & "     " & fam(i))
        Next
    End Sub
 
 
End Module
 
Option Explicit On
Option Strict On
Imports System.IO
 
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim i As Integer
 
        n = CInt(Val(TextBox1.Text))
 
        ReDim kv(0 To n - 1) 'обновление объявления
        ReDim fam(0 To n - 1)
        ReDim remont(0 To n - 1)
        
        Dim str1(0 To 2) As String
        Dim z As String = " "
        Dim alltext As String = " "
 
        n = -1
 
        OpenFileDialog1.Filter = "Text files (*.txt)|*.txt"
        OpenFileDialog1.ShowDialog()
 
 
        If OpenFileDialog1.FileName <> " " Then
            Try
                FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
 
                Do Until EOF(1)
 
                    n = n + 1
                    alltext = (LineInput(1))
                    str1 = Split(alltext, ",")
 
                    kv(n) = CStr(str1(0))
                    fam(n) = CStr(str1(1))
                    remont(n) = CStr(str1(2))
 
                    L_1.Items.Add(kv(n))
                    L_2.Items.Add(fam(n))
                    L_3.Items.Add(remont(n))
 
 
                    z = " "
                    For i = 0 To 2
                        str1(i) = " "
                    Next
                    alltext = " "
                    z = " "
 
                Loop
 
            Catch
                MsgBox("   Error")
            End Try
 
        End If
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.Show()
 
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Application.Exit()
    End Sub
 
End Class

Public Class Form1
    Structure Remont
        Dim NumH As Integer
        Dim FIO As String
        Dim RemLev As String
    End Structure
 
    Dim n As Integer = 3
    Dim RemT(n) As Remont
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        With RemT(0)
            .NumH = 2
            .FIO = "Петров"
            .RemLev = "Только снос"
        End With
        With RemT(1)
            .NumH = 5
            .FIO = "Сидоров"
            .RemLev = "Дезинфекция с последующим сносом"
        End With
        With RemT(2)
            .NumH = 15
            .FIO = "Круглов"
            .RemLev = "Вывоз за пределы населенного пункта и снос уже там"
        End With
        With RemT(3)
            .NumH = 15
            .FIO = "Петрищенко"
            .RemLev = "Не требуется"
        End With
 
        MsgBox(RemT(2).FIO & " " & RemT(2).NumH & " " & RemT(2).RemLev)
    End Sub
End Class