t = timer
	' FSO Constants
	Const ForReading   =  1 
	Const ForAppending	=  8 
	Const TristateUseDefault= - 2 
	
	' Variables
	Dim objFSO, objTS, objOTS, objfile

	' Instantiate the object
	Set objFSO = CreateObject("Scripting.FileSystemObject")

	' open the text file read only
	Set objTS = objFSO.OpenTextFile("C:\Temp\in.txt", ForReading, False, TristateUseDefault)
	' We now open the file to write it out
	If objFSO.FileExists("c:\Temp\out.txt") Then
		Set objOTS = objFSO.OpenTextFile("C:\Temp\out.txt", ForAppending) 'открываем итоговый файл для добавления записей
	Else
		Set objfile = objFSO.CreateTextFile("C:\Temp\out.txt")
		Set objfile = Nothing
		Set objOTS = objFSO.OpenTextFile("C:\Temp\out.txt", ForAppending)
	End if

	Do While objTS.AtEndOfStream <> True
		tmp = objTS.ReadLine()
	if len(tmp) =  11  then
		objOTS.Write Left(tmp,  3 ) & "-" & mid(tmp,  4 ,  3 ) & "-" & mid(tmp,  7 ,  3 ) & " " & mid(tmp,  10 ,  2 ) & vbCrLf
	else
	objOTS.Write tmp & vbCrLf
	end if
	Loop
	
	' Close all files after we read it in.
	objTS.Close
	Set objTS = Nothing
	objOTS.Close
	Set objOTS = Nothing
	Set objFSO = Nothing
t=timer-t
msgbox "OK! Run in " & t