800A0401 - expected end of statement in vba : I am getting this error "800A0401 - expected end of statement" in VBA. 
Please clarify on what is wrong

    Const ForReading = 1
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.OpenTextFile("C:\Users\RAJDIQ\Desktop\Macros\11082017\SingleFile.txt", ForReading)
    strLine = objTextFile.ReadLine
    Set folder = objFSO.GetFolder("C:\Users\RAJDIQ\Desktop\Macros\11082017\")
    Set outfile = objFSO.OpenTextFile("C:\Users\RAJDIQ\Desktop\Macros\11082017\comparedel.txt")
    myFile ="C:\Users\RAJDIQ\Desktop\Macros\11082017\Output.txt"
    Open myFile for Output As #1
    t = 0
    Do Until outfile.AtEndOfStream
      strLine = outfile.ReadLine
      If InStr(strLine, substrToFind) <> 0 Then
           t = t+1
       Else
         [ Lines = Lines & t & ","
    	  Write #1, Lines]
       End If
    Loop 
    
    MSGBOX "Complete"