VB.net Поиск определенной строки в.txt

Question

У меня есть текстовый файл, где у меня есть следующее:

IDJ blablabla/blablabla: 745 6001230015108                  344 00
1234 6001230015108       blabla
IDJ blablabla/blablabla: 745 6001230015109                  344 00
1234 6001230015109       blabla
IDJ blablabla/blablabla: 745 6001230015107                  344 00
1234 6001230015107       blabla

У меня вопрос, как я могу извлечь из этого файла следующие числа в текстовый файл:

6001230015108                  
6001230015109 
6001230015107        

У меня есть следующий код, но что он делает, он извлекает всю строку, а также дублирует.

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'read info from the file'
    Dim objReader As New System.IO.StreamReader("D:\input.txt")
    Dim objWriter As New System.IO.StreamWriter("D:\output.txt")
    Dim strTextFileInfo() As String 'an array of strings for each line'
    Dim arrCounter As Integer = 0   'counter for the array'
    Dim strTextToSearch As String = String.Empty    'text to search'

    'read all lines'
    Do While objReader.Peek <> -1
        'redim the array with the needet elements'
        ReDim Preserve strTextFileInfo(arrCounter)
        'input the info'
        strTextFileInfo(arrCounter) = objReader.ReadLine
        'increase the elements'
        arrCounter = arrCounter + 1
    Loop
    'enter the text to search'
    strTextToSearch = InputBox("Enter text to search")
    'search all elements for the string'
    For i As Integer = 0 To arrCounter - 1
        If strTextFileInfo(i).ToLower.Contains(strTextToSearch.ToLower) Then
            'display the found elements'
            objWriter.WriteLine(strTextFileInfo(i))
            'MessageBox.Show(strTextFileInfo(i))
        End If
    Next
End Sub

Спасибо за ваше время.