set f=CreateObject("scripting.filesystemobject").OpenTextFile (<путь к файлу>)
t=r.readline
do 
  t=replace( _
       replace ( _
           replace(t,"\","/"),"-", "/" ),".", "/")
  if instr( 1 ,t,"/") then
    a=split(t,"/")
    colon1=Right("00000" & a( 0 ),  5 )
    colon2=Right("000" & a( 1 ),  3 )
    if str(a( 2 ))="" Then colon3="01" else colon3=Right("00" & a( 3 ),  2 )
  else
    colon1=left(t, 5 )
    colon2=mid(t, 6 , 3 )
    colon3=mid(t, 9 )
    if colon3="" then colon3="01" else colon3=Right("00" & colon3,  2 )
  end if
  t=r.readline
loop untill f.atendofstream
f.close
set f=nothing

' подправьте выделенное цветом
Set f = CreateObject("scripting.filesystemobject").OpenTextFile("полный путь к Вашему текстовому файлу")
t = f.readline
Do
  t = Replace( _
       Replace( _
           Replace(t, "\", "/"), "-", "/"), ".", "/")
  If InStr( 1 , t, "/") Then
    a = Split(t, "/")
    colon1 = Right("00000" & a( 0 ),  5 )
    colon2 = Right("000" & a( 1 ),  3 )
    If CStr(a( 2 )) = "" Then colon3 = "01" Else colon3 = Right("00" & a( 2 ),  2 )
  Else
    colon1 = Left(t,  5 )
    colon2 = Mid(t,  6 ,  3 )
    colon3 = Mid(t,  9 )
    If colon3 = "" Then colon3 = "01" Else colon3 = Right("00" & colon3,  2 )
  End If
  t = f.readline
Loop Until f.atendofstream
f.Close
Set f = Nothing

' открываем текстовый файл
Set f = CreateObject("scripting.filesystemobject").OpenTextFile("D:/ASFL/6425221.txt")
' читаем строку из файла
t = f.readline
' цикл (условие выхода из цикла - ниже)
Do
' заменить в строке символы \ - . на /
  t = Replace( _
       Replace( _
           Replace(t, "\", "/"), "-", "/"), ".", "/")
  If InStr( 1 , t, "/") Then   ' если строка содержит символ /
' создать из строки массив (как именно - см.файл справки по функции Split)  
    a = Split(t, "/")
' обработка элементов массива
    colon1 = Right("00000" & a( 0 ),  5 )
    colon2 = Right("000" & a( 1 ),  3 )
    If CStr(a( 2 )) = "" Then colon3 = "01" Else colon3 = Right("00" & a( 2 ),  2 )
  Else ' наче (строка не содержит символ / )
' в переменную colon1 - первых пять символов строки
    colon1 = Left(t,  5 )
' в переменную colon2 - символы строки с 6-го по 8-й 
    colon2 = Mid(t,  6 ,  3 )
' в переменную colon3 - символы строки, начиная с 9-го
    colon3 = Mid(t,  9 )
' если в colon3 пустая строка, присвоить значение '01', иначе - отформатировать, чттобы содержала два знака
    If colon3 = "" Then colon3 = "01" Else colon3 = Right("00" & colon3,  2 )
  End If
' здесь вставляете свой код, в котором используете значения переменных colon1, colon2, colon3
' ...

' прочитать следующую строку из потока (файла)
  t = f.readline

' поворять пока не достигнут конец потока (файла)
Loop Until f.atendofstream

' закрыть файл
f.Close
' "освободить память"
Set f = Nothing

 KNIGA_KD N( 14 , 0 )
 ABON_NN N( 14 , 0 )
 DOG_NB N( 14 , 0 )
 SC_VL N( 14 , 2 )
 PRED_SC_VL N( 14 , 2 )
 RASHOD N( 14 , 2 )
 KVIT_SM N( 14 , 2 )
 KVIT_FIO N( 50 , 0 )
 ADDRESS N( 50 , 0 )
 KVIT_DT D( 14 )
 KVIT_PS N( 50 , 0 )
 PLATEG_KD N( 14 , 0 )
 PLAT_MY D( 14 )
 LS_OLD_NM С( 14 )
-- где 
-- N(x,y) - числовое поле, x- длина, y- точность
-- С(x) - текстовое поле, x- длина
-- D(x) - поле с датой, x- длина(?)

            ' если текущий лист не совпадает с требуемым
            If ws.Name <> s Then
            On Error Resume Next
                ' "ищем" требуемый лист в новойкниге
                Set ws = ws.Parent.Worksheets(s)
                
                If Err.Number <>  0  Then
                ' не нашли - скопировали шаблон
                    Err.Clear
                    With ws.Parent.Worksheets
                    'ThisWorkbook.Worksheets(2).Copy After:=ws
                        ThisWorkbook.Worksheets( 2 ).Copy After:=.Item(.Count)
                    'With ActiveWorkbook.Worksheets
                        Set ws = .Item(.Count)
                    End With
                    Application.CutCopyMode = False
                    ws.Name = s
                End If
            On Error GoTo  0 
            End If