Сравнение двух текстовых файлов.

Private Sub Command1_Click()
 
Dim intFileNum As Integer, strInfo As String
Dim strF1 As String, strF2 As String
'в переменных  strFile1 и  strFile2  содержится путь к файлам
If strFile1 = Empty Or strFile2 = Empty Then
        MsgBox 'Осуществите выбор файла', vbExclamation, Me.Caption
        Exit Sub
End If
 
intFileNum = FreeFile
 
'Открываем файл для считывания
Open strFile1 For Input As #intFileNum
'Здесь можно установить цикл, для считывания информации
Do While Not EOF(intFileNum)
 
'Считываем информацию
Line Input #intFileNum, strInfo
strF1 = strF1 & strInfo
'Закрываем цикл
Loop
'Закрываем файл
Close #intFileNum
Text1.Text = strF1
'Открываем файл для считывания
Open strFile2 For Input As #intFileNum
'Здесь можно установить цикл, для считывания информации
Do While Not EOF(intFileNum)
 
'Считываем информацию
Line Input #intFileNum, strInfo
strF2 = strF2 & strInfo
'Закрываем цикл
Loop
'Закрываем файл
Close #intFileNum
Text2.Text = strF2
'Проводим сравнение
If strF1 = strF2 Then MsgBox 'Информация одна и таже', vbInformation, Me.Caption: Exit Sub 'Информация одна и таже
If Replace(strF1, strF2, ' ') = strF1 And Replace(strF2, strF1, ' ') = strF2 Then
                    MsgBox 'Файлы разные', vbInformation, Me.Caption
                    Exit Sub
            
        ElseIf Replace(strF1, strF2, ' ') = strF1 Then
              MsgBox 'Файл F2 содержит дополнительную информацию', vbInformation, Me.Caption
              Text3.Text = Replace(strF2, strF1, ' ')
              Exit Sub
            
        Else
        MsgBox 'Файл F1 содержит дополнительную информацию', vbInformation, Me.Caption
        
        Text3.Text = Replace(strF1, strF2, ' ')
        Exit Sub
        
End If
 
End Sub