Sub RSTW()
	Const S_FileFrom$="C:\Temp\VeryBigLog.txt"      ' исходный файл
	Const S_FileTo$="C:\Temp\VeryBigLogEdited.txt"  ' выходной файл

	Dim objFSO, objF1, objF2
	Dim s$, i%

' создать объект FileSystemObject 
' библиотека Microsoft Scripting Runtime scrrun.dll; подключать к проекту не требуется, 
' должна быть зарегистрирована в системе
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objF1 = objFSO.OpenTextFile(S_FileFrom,  1 )      ' открыть исходный файл для чтения
	Set objF2 = objFSO.OpenTextFile(S_FileTo,  2 , True)  ' открыть выходной файл для записи
                                                            ' если не существует - будет создан,
                                                            ' если существует - будет перезаписан
' цикл по всем строкам входного файла
	Do Until objF1.AtEndOfStream
	' считать строку из входного файла
		s = objF1.ReadLine
	' найти второе вхождение ";"
		i = InStr( Instr( 1 , s, ";") +  1 , s, ";" )
	' записать "исправленную" строку в выходной файл
		objF2.WriteLine Left$(s, i -  1 ) & " " & Mid$(s, i +  1 )
	Loop

' закрыть файлы, обнулить ссылки
	objF1.Close: Set objF1 = Nothing
	objF2.Close: Set objF2 = Nothing
	Set objFSO = Nothing

End Sub