Sub cps2bln_konverter() 
  
 Dim poeben(1, 10000) As Double 'Сюда пишутся координаты точек, прочитанные в cps 
 Dim kolFile As Integer      'Всего файлов для конвертации 
 Dim numFile As Integer      'Текущий номер адреса файла 
 Dim BLN As Integer          'Номер открытого CPS файла 
 Dim CPSname As String       'Имя BLN файла 
 Dim CPS As Integer          'Номер BLN для записи 
 Dim str As String           'В неё читаются строки 
 Dim spase1 As Integer       'Положение первого пробела 
 Dim spase2 As Integer       'Положение второго пробела 
 Dim colstr As Integer       'Счётчик строк на полигон 
 Dim i As Integer 
  
 Close 
  
  
 kolFile = UBound(arr_name_file()) 
  
 For numFile = 1 To kolFile 
  
     BLN = FreeFile 
      
     Open arr_name_file(0) & "\" & arr_name_file(numFile) For Input As BLN 
      
         CPSname = arr_name_file(0) & "\" & arr_name_file(numFile) & ".bln"       'Задано имя выходного файла добавлением расширения BLN 
         CPS = FreeFile                                'Присвоили свободный номер создаваемому txt-файлу 
         Open CPSname For Output As CPS 
          
     Line Input #BLN, str        'Пропуск первых трёх строк, в данном случае не нужных 
     Line Input #BLN, str 
     Line Input #BLN, str 
          
     Do  'Цикл чтения cps ФАЙЛА до конца 
     colstr = 0 'обнуление счётчика строк при переходе к новому полигону 
         Do 'цикл чтения строк до конца полигона или конца файла 
         Line Input #BLN, str 
         spase1 = InStr(str, " ") 'Поиск первого пробела 
             If spase1 = 0 Then Exit Do 
         spase2 = InStr(spase1 + 1, str, " ")    'Поиск второго пробела 
         colstr = colstr + 1 
         poeben(0, colstr) = Left(str, spase1 - 1)   'Чтение координаты X 
         poeben(1, colstr) = Mid(str, spase1 + 1, spase2 - spase1 - 1) 'Чтение координаты Y 
         Loop Until EOF(BLN) 
          
             Print #CPS, colstr & ", 0"  'Запись в BLN количества строк и нуля, не помню что точно значит 0, но пусть будет он, а не 1 
             For i = 1 To colstr 
             Print #CPS, poeben(0, i) & " " & poeben(1, i) 
             Next i 
          
     Loop Until EOF(BLN) 
      
      
      
     Close 
      
  
 Next numFile 
  
  
 End Sub