Private Sub mnuNeu_Click(ByVal sender As Object, _
                         ByVal e As System.EventArgs) _
                         Handles mnuNeu.Click
        If rtfNotizen.Modified Then
            Dim s As String = "Der Inhalt wurde geändert." & vbCrLf _
            & "Wollen Sie die Datei schließen ohne zu speichern? "
 
            If MessageBox.Show(s, Anwendungstitel, _
                               MessageBoxButtons.YesNo, _
                               MessageBoxIcon.Exclamation, _
                               MessageBoxDefaultButton.Button2) _
                = Windows.Forms.DialogResult.No Then
                Exit Sub
            End If
        End If
 
...

If rtfNotizen.Modified = true Then
            Dim s As String = "Der Inhalt wurde geändert." & vbCrLf _
            & "Wollen Sie die Datei schließen ohne zu speichern? "
 
...