Public Sub Write
Dim WO As Object = "ColdBlueLava"
Dim M As Map
M.Initialize
M.Put("1", Ser.ConvertObjectToBytes(WO))
File.WriteMap(File.DirTemp, "123.txt", M)
End Sub
Public Sub Read As Object
Dim RM As Map = File.ReadMap(File.DirTemp, "123.txt")
Dim RMO As Object = RM.Get("1")
Dim Input() As Byte = Ser.ConvertObjectToBytes(RMO)
Dim MainObject As Object = Ser.ConvertBytesToObject(Input)
Dim Output() As Byte = Ser.ConvertObjectToBytes(MainObject)
Return Ser.ConvertBytesToObject(Output)
End Sub