Option Explicit
Dim bChanged As Boolean
 
Private Sub List1_Click()
  If bChanged Then
    ' Hier Meldungsfenster, ob RTF-Inhalt gespeichert werden soll...
 
  End If
 
  ' jetzt Daten aus ListBox in RTF-Control schreiben
  ...
  bChanged = False
End Sub
 
Private Sub RichTextBox1_Change()
  bChanged = True
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de