You could use a TextReader read each line separatedly and split the string as needed.
Function GetNumbers(reader As TextReader) As String()
Dim lst As New List(Of String)
Do While Not reader.EndOfStream
lst.AddRange(reader.ReadLine().Split(vbTab))
Loop
Return lst.ToArray()
End Function