arrays - 「object required 'added4'」というエラーが表示され続けます

Question

2つのファイルの配列を作成して2つを比較しようとしているのですが、壁にぶち当たります。「object required 'added4'」というエラーが表示され続けます。2 つのファイルを読み取って配列にし、2 つを比較して、最初のファイルにない行を 2 番目のファイルから削除する必要があります。また、削除した行をログに記録したいと思います。

'Reads Approvedshare txt and makes the txt file into an array
        public objFSO 
         Set objFSO = CreateObject("Scripting.FileSystemObject") 
         Dim objTextFile 
         Set objTextFile = objFSO.OpenTextFile _
            ("TXT PATH") 
         do Until objTextFile.AtEndOfStream
            strNextLine = objTextFile.Readline
           public array1 : array1 = trim(strNextLine)
            'wscript.echo "test array : " & array1
           array1 = trim(array1)
            loop


        'Reads current shares txt and also makes that txt into an array
        Set objTextFile2 = objFSO.OpenTextFile _
            ("SECOND TXT PATH")
         do Until objTextFile2.AtEndOfStream
        strNextLine2 = objTextFile2.Readline
       public array2 : array2 = trim(strNextLine2)
        'wscript.echo "test array : " & array2
       array1 = trim(array2)
        loop

'This section is used to compare the two txt files and remove whatever variables that are in both txt files and deleting them.
array2.files
array2.files
   For Each textstream1 In array1
        found = False
    For Each textstream2 In array2
      If textstream1 = textstream2 Then
        found = True
        Exit For
    End If
        found = False
    Next
      If found = False Then
        wscript.echo "This isn't on approve shares text : " &textstream2
     End If 
    Next

'Another section for logging the process, logging the lines that were deleted