Вытащить из массива нужные строчки

 If System.IO.File.Exists(path) = False Then
            File.Create(path)
        ElseIf File.Exists(patch) = True Then                
            lineData = File.ReadAllLines(path, Encoding.UTF8) ' Условие на проверку файла верное! Файл записан в массив по строчкам 
 
 
        End If

Dim listOfFg1 As New List(Of String)
    Dim listOfFg2 As New List(Of String)

 If IO.File.Exists(path) Then
            Dim lineData() As String = File.ReadAllLines(path, Encoding.Default) ' Условие на проверку файла верное! Файл записан в массив по строчкам 
            Label1.Text = UBound(lineData) 'количество прочитанных строк
            For i = 0 To UBound(lineData) 'цикл по всем строкам
                If lineData(i).EndsWith(".fg1") Then
                    listOfFg1.Add(lineData(i).Substring(0, lineData(i).Length - 4)) 'добавляем в лист строку кроме последних 4 символов
                ElseIf lineData(i).EndsWith(".fg2") Then
                    listOfFg2.Add(lineData(i).Substring(0, lineData(i).Length - 4))
                End If
            Next
        End If

 For i = 0 To listOfFg1.Count - 1
            ListBox1.Items.Add("FG1: " & listOfFg1(i))
        Next
        For i = 0 To listOfFg2.Count - 1
            ListBox1.Items.Add("FG2: " & listOfFg2(i))
        Next

Public Class MyType
    Public Type As String
    Public Value As String
End Class

 Dim ListOfTypes As New List(Of MyType)

If IO.File.Exists(path) Then
            Dim lineData() As String = File.ReadAllLines(path, Encoding.Default) ' Условие на проверку файла верное! Файл записан в массив по строчкам 
            Label1.Text = UBound(lineData)
            For i = 0 To UBound(lineData)
                Dim SpLine() As String = Split(lineData(i), "|")
                ListOfTypes.Add(New MyType With {.Type = SpLine(1), .Value = SpLine(0)})
            Next
        End If

 For i = 0 To ListOfTypes.Count - 1
            ListBox1.Items.Add(ListOfTypes(i).Type & ": " & ListOfTypes(i).Value)
        Next

Function CountOfType(ByVal type As String) As Integer
        Dim Cnt As Integer = 0
        For i = 0 To ListOfTypes.Count - 1
            If ListOfTypes(i).Type = type Then
                Cnt += 1
            End If
        Next
        Return Cnt
    End Function

  MsgBox("Записей .fg1: " & CountOfType(".fg1"))'CountOfType(".fg1") - вызов функции, как аргумент передаем нужный тип, в ответ получаем целое число совпадений

  Function CountOfType(ByVal type As String) As List(Of Integer)
        Dim Cnt As New List(Of Integer)
        For i = 0 To ListOfTypes.Count - 1
            If ListOfTypes(i).Type = type Then
                Cnt.Add(i)
            End If
        Next
        Return Cnt
    End Function

 Dim Res() As Integer = CountOfType(".fg1").ToArray
        Dim result As String = "Всего записей .fg1: " & Res.Count & vbNewLine
        For i = 0 To UBound(Res)
            result &= ListOfTypes(Res(i)).Value & vbNewLine
        Next
        MsgBox(result)