Set fso = CreateObject("Scripting.FileSystemObject") 
Set f=fso.opentextfile("0.txt",1) 
a = f.ReadAll

Set r = New RegExp
Set r1 = New RegExp 
Set r2 = New RegExp 

r.Global = True 
r.Multiline = True 
r.IgnoreCase = True

r.Pattern = "(Start-01.+?)(end.*?)" 
r1.Pattern = "(Start-02.+?)(end.*?)"
r2.Pattern = "(Start-03.+?)(end.*?)" 

Set f = fso.CreateTextFile("1.txt", 2) 
For Each m In r.Execute(a) 
f.WriteLine m.SubMatches(0)
Next
For Each m In r1.Execute(a) 
f.WriteLine m.SubMatches(0)
Next
For Each m In r2.Execute(a) 
f.WriteLine m.SubMatches(0)
Next

f.Close