Чтение и парсинг одного файла, запись данных во второй. Исправить код - VB

set fso=CreateObject("Scripting.FileSystemObject")
 
path="Q:\Skript's\Slav"
 
dim str
 
dim arr
 
if fso.FileExists(path & "\log.txt") then
Set File = fso.OpenTextFile(path & "\log.txt")
 
dim Array(1000)
dim s1ArrayH(1000)
dim s2ArrayH(1000)
 
dim s1ArrayM(1000)
dim s2ArrayM(1000)
 
dim ntimeH(1000)
dim ntimeM(1000)
 
i=0
n=0
t1=0
t2=0
Do while Not (File.atEndOfStream)
   str=File.ReadLine
   arr=split(str," ")
 
     for c=0 to UBound(arr)
            
        i=i+1 
 
        if i=1 then
        n=n+1
        Array(n)=arr(c)
        end if
 
        if i=2 then
        t1=t1+1
        s1ArrayH(t1)=arr(c)
        end if
 
        if i=3 then
        t2=t2+1
        s2ArrayH(t2)=arr(c)
        i=0
        end if
          
     next        
 
Loop
 
for i=0 to t2
  arr=split(s1ArrayH(i),":")
  for c=0 to UBound(arr)
    if(c=0) then s1ArrayH(i)=arr(c) end if
    if(c=1) then s1ArrayM(i)=arr(c) end if
  next
next
 
for i=0 to t2
  arr=split(s2ArrayH(i),":")
  for c=0 to UBound(arr)
    if(c=0) then s2ArrayH(i)=arr(c) end if
    if(c=1) then s2ArrayM(i)=arr(c) end if
          
  next  
next
 
for i=0 to t2
ntimeH(i)=s2ArrayH(i)- s1ArrayH(i)
ntimeM(i)= s2ArrayM(i)- s1ArrayM(i)
next
 
for i=0 to t2
  for j=0 to t2
    if(Array(i)=Array(j)) then
       
       if (i<>j) then
 
          ntimeH(i)=ntimeH(i)+ntimeH(j)
          ntimeM(i)=ntimeM(i)+ntimeM(j)
          ntimeH(j)=0
          ntimeM(j)=0
          Array(j)=""
 
        end if
    end if
   
  next
next
 
Set File1 = fso.OpenTextFile(path & "\Oflog.txt",2,true)
 
for i=0 to t2
if Array(i)<>"" then File1.Writeline(Array(i) &" "& ntimeH(i)&":"&ntimeM(i))
next
else
MsgBox("Фаил Log отсутствует.")
end if

or i=0 to t2
ntimeH(i)=s2ArrayH(i)- s1ArrayH(i)
ntimeM(i)= s2ArrayM(i)- s1ArrayM(i)
next