Dim m As Map
m.Initialize
m=parser.NextObject
For i=0 To m.Size-1
' Log(i & ": " & m.GetKeyAt(i) & "=" & m.GetValueAt(i))
Log(m.GetValueAt(i))
Next
Dim v0,v1 As String
v0= m.GetValueAt(0) :Log(v0) 'displays: 12345%
v1= m.GetValueAt(1) :Log(v1) 'displays: b4auser