Simple VB question, Searching all and displaying all

Ok, I am new to VB and coding in general. I am trying to complete my final project and I have run into a snag that I can't seem to get past. I am not asking for someone to write all this code as I want to actually do it, but a little help in this one small portion would greatly help.

The program is a flight analysis that reading a file in from a txt file. Below is the code I have wrote so far. Right now I am working on the button that is bolded. I need this button to allow me to search for all flights by departure name. I also have to do for arrival, sort by region, sort by destination, add and delete a flight etc. So just dont want anyone to think your completing my project. I just am at a major stall right now and even though I know its simple I just can't think through it. Any help would be appreciated.

Option Strict On
Public Class btnflightnumber


Dim gintFlightNum(50), gintDepartTime(50), gintArrivalTime(50) As Integer
Dim gstrDeparture(50), gstrArrival(50), gstrDepartAorP(50), gstrArrivalAorP(50) As String
Dim gdecFare(50) As Decimal
Dim gintLastRecord As Integer

Private Sub frmflights_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim fileReader As IO.StreamReader
fileReader = IO.File.OpenText("flights.txt")
Dim i As Integer = 0
Do While fileReader.Peek <> -1
gintFlightNum(i) = CInt(fileReader.ReadLine)
gstrDeparture(i) = fileReader.ReadLine
gstrArrival(i) = fileReader.ReadLine
gintDepartTime(i) = CInt(fileReader.ReadLine)
gstrDepartAorP(i) = fileReader.ReadLine
gintArrivalTime(i) = CInt(fileReader.ReadLine)
gstrArrivalAorP(i) = fileReader.ReadLine
gdecFare(i) = CDec(fileReader.ReadLine)

i += 1
Loop
gintLastRecord = i - 1
End Sub

Private Sub btndisplayall_Click(sender As System.Object, e As System.EventArgs) Handles btndisplayall.Click
displayall()
lbldisplay.Text = "Displaying all flights"
End Sub

Private Sub displayall()
Dim i As Integer
lstflights.Items.Clear()
For i = 0 To gintLastRecord
Dim lviflights As New ListViewItem(gintFlightNum(i).ToString)
lviflights.SubItems.Add(gstrDeparture(i))
lviflights.SubItems.Add(gintDepartTime(i).ToString & gstrDepartAorP(i))
lviflights.SubItems.Add(gstrArrival(i))
lviflights.SubItems.Add(gintArrivalTime(i).ToString & gstrArrivalAorP(i))
lviflights.SubItems.Add(gdecFare(i).ToString("C"))

lstflights.Items.Add(lviflights)

Next i
End Sub

Private Sub btnsearchforflight_Click(sender As System.Object, e As System.EventArgs) Handles btnsearchforflight.Click
Dim intFoundFlag As Integer, i As Integer
Dim intPosition As Integer, strTarget As String

strTarget = InputBox("Enter Flight Number")

i = 0
intFoundFlag = 0

Do While i <= gintLastRecord And intFoundFlag = 0
If CDbl(strTarget) = gintFlightNum(i) Then
intFoundFlag = 1
intPosition = i
End If
i = i + 1
Loop

If intFoundFlag = 0 Then
intPosition = -1
End If
lstflights.Items.Clear()
If intPosition = -1 Then
lbldisplay.Text = "Flight number " & strTarget & " not found."
Else
lbldisplay.Text = "Flight number " & strTarget & " was found."
Dim lviflights As New ListViewItem(gintFlightNum(intPosition).ToString)
lviflights.SubItems.Add(gstrDeparture(intPosition))
lviflights.SubItems.Add(gintDepartTime(intPosition).ToString & gstrDepartAorP(intPosition))
lviflights.SubItems.Add(gstrArrival(intPosition))
lviflights.SubItems.Add(gintArrivalTime(intPosition).ToString & gstrArrivalAorP(intPosition))
lviflights.SubItems.Add(gdecFare(intPosition).ToString("C"))

lstflights.Items.Add(lviflights)
End If

End Sub

Private Sub btndeparting_Click(sender As System.Object, e As System.EventArgs) Handles btndeparting.Click
Dim intFound As Integer, i As Integer
Dim strTarget As String

strTarget = InputBox("Enter departing city")


For i = 0

If

Dim lviflights As New ListViewItem(gintFlightNum(i).ToString)
lviflights.SubItems.Add(gstrDeparture(i))
lviflights.SubItems.Add(gintDepartTime(i).ToString & gstrDepartAorP(i))
lviflights.SubItems.Add(gstrArrival(i))
lviflights.SubItems.Add(gintArrivalTime(i).ToString & gstrArrivalAorP(i))
lviflights.SubItems.Add(gdecFare(i).ToString("C"))

lstflights.Items.Add(lviflights)
intFound = 1
End If
Next i
If intFound = 0 Then
lbldisplay.Text = "There are no flights with this departure"
End If

End Sub
End Class