Public Sub y_XMLSpeichern(ByVal ID As String, ByVal CellText As String)
       ......
 
        If CellText IsNot Nothing Then
            If nod IsNot Nothing Then
 
                '
 
                If nod.ChildNodes(0).InnerText.ToString <> _
                  CellText.ToString.TrimStart Then
 
                    If MessageBox.Show("Die Daten wurden geändert: " + Chr(13) _
                      & Chr(10) + Chr(13) & Chr(10) & _
                                            "Alt: " + nod.ChildNodes( _
                                            0).InnerText.ToString + Chr(13) & _
                                            Chr(10) & _
                                            "Neu: " + CellText + Chr(13) & Chr( _
                                            10) + Chr(13) & Chr(10) & _
                                            "Soll gespeichert werden ?", "" & _
                                            "Achtung", _
                                            MessageBoxButtons.OKCancel, _
                         MessageBoxIcon.Question, _
                         MessageBoxDefaultButton.Button2) = DialogResult.OK Then
 
                        nod.ChildNodes(0).InnerText = CellText
                    Else
                        Exit Sub
 
                    End If
                End If
            Else
                '????????????????Wird das wirklich gebraucht???
                'CellText = CellText.Replace("\r\n", "<br />")
                Dim newDatensatz As String = _
                          "<Eintrag ID=""" + ID + """ >" & _
                          Environment.NewLine & "" & _
                          "<ZellText>" + CellText + "</ZellText>" & _
                          Environment.NewLine & "" & _
                          "</Eintrag>"
 
                'myxml.replace("\\\\n")
                ' Create a new XmlDocumentFragment for our document.
                Dim docFrag As XmlDocumentFragment = xd.CreateDocumentFragment()
                ' The Xml for this fragment is our newPerson string.
                docFrag.InnerXml = newDatensatz
                ' Append the new person to the root element.
                Dim root As XmlNode = xd.DocumentElement
                root.AppendChild(docFrag)
 
 
                'ElseIf CellText Is Nothing Then
            End If
 
        Else
            nod.ParentNode.RemoveChild(nod)
 
        End If
 
        'End If
        ' Save the Xml.
        xd.Save(frmStart.XMLPfadDaten)
 
        'ShowXml()
    End Sub

Private Sub....
                Me.sleDGV.Visible = True
                Me.sleDGV.Focus() 'Focus auf Textbox setzen
                'Dim Celltext As String
                'Celltext = CStr(Me.dgvKalender.Item( 
                ' Me.dgvKalender.CurrentCell.ColumnIndex, 
                ' Me.dgvKalender.CurrentCell.RowIndex).Value)
 
                'Celltext = Celltext.Replace("<br />", "\r\n")
                'Me.sleDGV.Text = Celltext
                Me.sleDGV.Text = CStr(Me.dgvKalender.Item( _
                  Me.dgvKalender.CurrentCell.ColumnIndex, _
                  Me.dgvKalender.CurrentCell.RowIndex).Value)
 
                Me.sleDGV.SelectionStart = Me.sleDGV.TextLength 'wenn Textbox 
                ' nicht leer dann Focus hinter letzten Buchstaben setzen
 
    End Sub