Создание блокнота - проверка на наличие изменен ли файл или нет - VB

Формулировка задачи:

Ребята, кто может, помогите пожалуйста. Например, если я что-то записываю в текстовое поле блокнота, то при закрытии просит о сохранении файла, то бишь сохранить изменения в файле или сохранить как. Но вот проблема. Когда я открываю файл, и не вписываю туда никаких изменений, и при закрытии или создания файла он все равно запрашивает о том, что нужно ли сохранить изменения в файле или нет (то бишь проверка написанная мною) Вот исходный код кнопки "Создать новый файл" - почти аналогично закрытию файла (программы)

Dim msg As String
Dim NomerFile As Integer

If Text1.text = "" Then
Exit Sub
 
Else
 
msg = MsgBox("Г‘Г®ГµГ°Г*Г*ГЁГІГј ГЁГ§Г¬ГҐГ*ГҐГ*ГЁГї Гў ГґГ*Г©Г«ГҐ?", vbYesNoCancel + vbQuestion, Notepad)
 
If msg = vbYes Then
 
If Path_Main = "" Then
    Save_Click
 
    Else
 
        NomerFile = FreeFile
Open Path_Main For Append As NomerFile
    Print #NomerFile, Text1.text
Close
Text1.text = ""
End If
End If
 
If msg = vbNo Then Text1.text = ""
End If

Notedap - переменная имеющее значение "Блокнот" Но я все не могу довести до ума, как дать понять программе о том. что файл был просто загружен и в него не вводилось никаких изменений.

Решение задачи: «Создание блокнота - проверка на наличие изменен ли файл или нет»

textual
                            Листинг программы 
                        

                            Private Sub cmdNew_Click()
    If Text1.Tag = "*" Then
        If MsgBox("Файл изменен, сохранить?", vbQuestion + vbYesNo) = vbYes Then
            cmdSave_Click
        End If
    End If
    Text1.Text = ""
    Text1.Tag = ""
End Sub
 
Private Sub cmdOpen_Click()
    If Text1.Tag = "*" Then
        If MsgBox("Файл изменен, сохранить?", vbQuestion + vbYesNo) = vbYes Then
            cmdSave_Click
        End If
    End If
    'Код для открытия файла файла
 
    Text1.Tag = ""
End Sub
 
Private Sub cmdSave_Click()
    'Код для сохранения файла
 
    Text1.Tag = ""
End Sub
 
Private Sub Text1_Change()
    Text1.Tag = "*"
End Sub
                        