Dim s As String = TXT.Text
        If MessageBox.Show("Neues dokument erstellen ?", "ZeX", _
          MessageBoxButtons.YesNo, MessageBoxIcon.Question) = _
          Windows.Forms.DialogResult.Yes Then
            If TXT.Text = s Then
                Me.TXT.Clear()
            Else
                MessageBox.Show("Änderung vorgenommen")
            End If
        End If