TextBox’da Değişiklik Yapılıp Yapılmadığını Anlamak

Private TextCh As Boolean

Private Sub Form_Unload(Cancel As Integer)
If TextCh Then
If MsgBox("Degisiklikler kaydedilsin mi?", vbYesNo, "Kayit") = vbYes Then
TextCh = False
End If
End If
End Sub

Private Sub Text1_Change()
TextCh = True
End Sub