Sub main()
    Dim inFilePath1 As String
    Dim inFilePath2 As String
    
    Dim list1 As Collection
    Dim list2 As Collection
    Dim chklist As Collection
    Set list1 = New Collection
    Set list2 = New Collection
    Set chklist = New Collection


    
    Dim file_no As Integer
    Dim readLine As String
    
    inFilePath1 = Application.GetOpenFilename()
    Debug.Print "file1:"; inFilePath1
    
    If inFilePath1 = "False" Then
        End
    End If
    
    inFilePath2 = Application.GetOpenFilename()
    Debug.Print "file2:"; inFilePath2
    
    If inFilePath2 = "False" Then
        End
    End If
    
    ' ---- [ファイル１読み込み] -----------------------------------------------------
    file_no = FreeFile
    Open inFilePath1 For Input As #file_no
    
    Do Until EOF(file_no)
    
        Line Input #file_no, readLine
        
        Debug.Print "out:"; readLine
        list1.Add readLine
    
    Loop
    
    Close #file_no
    
    ' ---- [ファイル２読み込み] -----------------------------------------------------
    file_no = FreeFile
    Open inFilePath2 For Input As #file_no
    
    Do Until EOF(file_no)
    
        Line Input #file_no, readLine
        
        Debug.Print "out:"; readLine
        list2.Add readLine
    
    Loop
    
    Close #file_no
    
    
    For Each Item In list1
    
        Debug.Print "out:"; Item
    
    Next Item
    
    For Each Item In list2
    
        Debug.Print "out:"; Item
    
    Next Item
    
    Dim size As Integer
    size = list1.Count
    
    ' ---- [リストサイズ比較] -----------------------------------------------------
    If (list1.Count <> list2.Count) Then
    
        Debug.Print "list1:"; list1.Count; "list2:"; list2.Count
        End
        
    End If
    
    ' ---- [リスト比較] -----------------------------------------------------------
    Dim cnt As Integer
    Dim i As Integer
    Dim chks(10) As Integer
    
    For i = 2 To list1.Count - 1
        
        If list1(i - 1) <> list2(i - 1) Then
            
            chks(i) = 1
            
        ElseIf list1(i) <> list2(i) Then
            
            chks(i - 1) = 1
        
        ElseIf list1(i + 1) <> list2(i + 1) Then
        
            chks(i + 1) = 1

        End If
    Next i
    
    
    'For i = 1 To list1.Count
        
        'If list1(i) = list2(i) Then
        '    Debug.Print "[chk:1]"; list1(i); ","; list2(i)
        '    chklist.Add 1
        '    chks.Add 1
        'Else
        '    Debug.Print "[chk:0]"; list1(i); ","; list2(i)
        '    chklist.Add 0
        '    chks.Add 1
        'End If
    ' Next i
    
    ' ---- [出力範囲決定] ----------------------------------------------------------
    For i = 1 To size
    
        Debug.Print "flg"; chks(i)
    
    Next i
    
End Sub