Выяснить, имеется ли пассажир, багаж которого состоит только из одной вещи и весом более 30 кг

Public Class Form1
    Dim n As Integer    'Глобальная переменная n (кол-во введенных записей)
    Private Structure Persons   'Структура обязательно располагается в разделе Declaration
        Dim FIO As String
        Dim NOMbileta As Integer
        Dim KolV As Integer
        Dim Veskaj As Integer
    End Structure
    Dim MyPerson(100) As Persons    'Обявление количества записей в структуре
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Static k As Integer 'Статическая переменная k, в начале k=0
        MyPerson(k).FIO = TextBox1.Text
        MyPerson(k).NOMbileta = Val(TextBox2.Text)
        MyPerson(k).KolV = Val(TextBox3.Text)
        MyPerson(k).Veskaj = Val(TextBox4.Text)
        MessageBox.Show("Данные введены", "СПИСОК", MessageBoxButtons.OK, MessageBoxIcon.Information)
        TextBox1.Text = ""      'или TextBox1.Clear()
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        k = k + 1   'Увеличение счетчика записей на единицу
        Label6.Text = "Всего записей: " + CStr(k)
        n = k   'Присвоение глобальной переменной количество записей
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim sFIO As String  'Переменная соответствует полю FIO
        Dim i As Integer    'Текущая запись в структуре
        Dim flag As Boolean 'Флаг. Он поднят (flag=True), если запись найдена
        sFIO = InputBox("Введите фамилию и инициалы", "СПИСОК")
        flag = False    'В начале флаг опущен (flag=False)
        ' Очистка текстовых полей
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        For i = 0 To n - 1
            If MyPerson(i).FIO = sFIO Then
                flag = True
                With MyPerson
                    TextBox1.Text = MyPerson(i).FIO
                    TextBox2.Text = MyPerson(i).NOMbileta
                    TextBox3.Text = CStr(MyPerson(i).KolV)
                    TextBox4.Text = MyPerson(i).Veskaj
                End With
                Exit For
            End If
        Next i
        If flag = False Then
            MessageBox.Show("Запись не найдена", "СПИСОК", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub
 
End Class

If MyPerson(i).KolV = 1 AndAlso MyPerson(i).Veskaj >= 30 Then