Imports System.IO

Module Module1

    Sub Main()

        Dim result As New List(Of String)() From {"配列(0)の値"}

        For Each cols In File.ReadLines("D:\example.txt").Select(Function(s) s.Split(vbTab(0)))

            If cols.Length = 4 Then

                result.Add(cols(2))

                result.Add(cols(3))

            End If

        Next

        Dim 配列() As String = result.ToArray()



    End Sub

End Module