Dim Cambio              As Boolean
'Variable [TRUE|FALSE]


Private Sub Command1_Click()
 'Este boton representaria el 'Guardar' de los editores d texto
 Cambio = False
End Sub

Private Sub Form_Load()
 Cambio = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
    
    If Cambio = False Then Exit Sub 'CERRAMOS SIN PREGUNTAR

    Cancel = (MsgBox("¿Realmente desea Salir?", vbQuestion + vbYesNo, _
                   "Salir") = vbNo)
    If Cancel = 0 Then
        Cambio = False
        'Guardar 'llamamos a la rutina encargada de guardar
    End If
End Sub

Private Sub Text1_Change()
    Cambio = True
End Sub