Set fso = CreateObject("Scripting.FileSystemObject")
text = fso.OpenTextFile("log2.txt",1).ReadAll
With New RegExp
.Pattern = "(.*?xxx)(.*)"
.IgnoreCase = True
.Global = True
text = .Replace(text,"$2")
End With
fso.OpenTextFile("log2.txt",2,True).Write text