Sub test()

Dim F1 As Integer
Dim F As Integer

x = "C:\Documents and Settings\test.txt"
file = Dir(x)

     Name = "C:\Documents and Settings\" & file
     Файл = file

     Путь = "C:\Documents and Settings\fedorov\Новая_папка\" & Файл
     F = FreeFile()
      
         Open Путь For Output As #F 'открываем файл для записи
       
         F1 = FreeFile()
         Open Name For Input As #F1 'считывание данных из файла Name

             Do Until EOF(F1)
             Line Input #F1, MyText   ' промотр содержимого файла
              
             Данные_1 = Mid(MyText, 1, 15)
             Данные_2 = Mid(MyText, 40, 14)
             Данные_3 = Mid(MyText, 75, 6)
          
             Результат = Данные_1 & "    " & Данные_2 & "    " & Данные_3
             Print #F, Результат
               
             Loop

             Close #F1
End Sub