Dim 配列 = "".Split().Concat(File.ReadLines("D:\example.txt").SelectMany(Function(s) s.Split(vbTab(0)).Skip(2).Take(2).ToArray())).ToArray()