Скопировать определенные строки из файла, вставить в другой, произвести расчет и вывести значения в Label - VB

Формулировка задачи:

Здравствуйте, помогите, пожалуйста! Есть txt файл со строками : 9/24/2017 2 120 9/25/2017 3 180 9/25/2017 4 240 9/25/2017 5 370 9/26/2017 6 370 Мне необходимо в Text1.Text и Text2.Text ввести в поиск значения 9/25/2017 и 9/26/2017 соответственно.После этого все значения за этот период: 9/25/2017 3 180 9/25/2017 4 240 9/25/2017 5 370 9/26/2017 6 370 необходимо скопировать и записать в другой txt файл, в нем же произвести расчет, во втором столбце от крайнего значения отнять первое (6-3) и вывести его в Label1.Caption, а в третьем столбце просуммировать все значения (180+240+370+370) и вывести значение в Label2.Caption. Буду очень благодарна за помощь

Решение задачи: «Скопировать определенные строки из файла, вставить в другой, произвести расчет и вывести значения в Label»

textual
                            Листинг программы 
                        
                            Arr = Split(CreateObject("Scripting.FileSystemObject").Getfile(full_file_Path$).OpenasTextStream(1).ReadAll, vbNewLine)