Как правильно написать код?

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim L() As String = IO.File.ReadAllLines("C:\t.txt", System.Text.Encoding.Default)
        Dim Bag, Ves As New ArrayList
        Dim MaxBag As Integer
        Dim MaxVes As Integer
        Dim MaxVes_ As Integer = InputBox("Введите вес багажа в килограммах, чтобы найти номер рейса, не превышающий по весу заданное значение", "Преподу привет")
        Dim InfoBag, InfoVes As String
        For I As Integer = 0 To L.Length - 1
            Dim Inf() As String = L(I).Split("|")
            Bag.Add(Int(Inf(2)))
            Ves.Add(Int(Inf(3)))
        Next
        Bag.Sort()
        Ves.Sort()
        For I As Integer = L.Length - 1 To 0 Step -1
            If Ves(I) < MaxVes_ Then
                MaxVes = Ves(I)
                Exit For
            End If
        Next
        MaxBag = Bag(L.Length - 1)
        For I As Integer = 0 To L.Length - 1
            Dim Inf() As String = L(I).Split("|")
            If MaxBag = Int(Inf(2)) Then
                InfoBag &= "У пассажира " & (Inf(0)) & " самый увесистый багаж - " & (Inf(2)) & " килограмм!" & vbCrLf
            End If
            If MaxVes = Int(Inf(3)) Then
                InfoVes &= "Номер рейса, не превышающий " & MaxVes_ & " кг. (" & MaxVes & " кг) - №" & Inf(1) & ", которым едет хороший человек " & Inf(0) & vbCrLf
            End If
        Next
        MsgBox(InfoBag & vbCrLf & InfoVes)
    End Sub