Public Function XRead(ByVal Knoten As String)
       Dim reader As XmlReader
        Dim myXMLDoc As New XmlDocument
        reader = XmlReader.Create("E-Mail.xml")
        myXMLDoc.Load(reader)
        Dim myNode As XmlNode = myXMLDoc.SelectSingleNode(Knoten)
        myNode = myNode.FirstChild
        Return (myNode.Value.ToString)
        reader.Close()
 
    End Function