xmlSer = New XmlSerializer(GetType(Rohr))
            Dim obj As Rohr = New Rohr(10, 20, 30)
            myStream = New FileStream("D:\Temp.mab", FileMode.Create)
            xmlSer.Serialize(myStream, obj)
            myStream.Close()
 
            Dim fs As FileStream = New FileStream("D:\Temp.mab", FileMode.Open)
            Dim oldObj As Rohr = xmlSer.Deserialize(fs)