Dim settings As Map
'**************************
some code to fill values in settings
'**************************
Dim bytesbuffer(100000) As Byte
Dim raf As RandomAccessFile
raf.Initialize3(bytesbuffer,True)
raf.WriteObject(settings,True,0)
Dim bc As ByteConverter
Dim HexString As String = bc.HexFromBytes(bytesbuffer)
stream.Write(HexString.SubString2(0,raf.CurrentPosition*2) & Chr(13) & Chr(10))