Apakah Project Telah Dirubah, Cara Mengetahuinya? VB6-AddIns

Public VBInstance As VBIDE.VBE 
Public Connect As Connect 
 
Option Explicit 
 
Private Sub CancelButton_Click() 
    Connect.Hide 
End Sub 
 
Private Sub OKButton_Click() 
    If IsDirty Then 
        MsgBox "Project telah disimpan" 
    Else 
        MsgBox "Project belum disimpan" 
    End If 
End Sub 
 
'untuk mengetahui apakah project telah dirubah/diedit 
Public Function IsDirty() As Boolean 
    IsDirty = (VBInstance.ActiveVBProject.IsDirty = True) 
End Function