Dim fmap As Map ' create a writeable map
fmap.Initialize ' initialize it
Dim j As JSONParser
j.Initialize($"{"bedtime":"07:28","uptime":"15:28","sleeponsetmins":5,"wasomins":13,"awakeningscount":3,"qualityrating":2,"morningfeelingrating":null,"sadnessrating":0,"stressrating":0,"medsused":null,"medname":null,"comment":null,"id":"ext-record-119","tib":8,"tst":7.7,"se":96,"entered":"2019-09-10T00:00:00","updated":"2019-09-10T15:29:22","authenticatedUserId":8,"create":false,"update":false,"remove":false,"remoteid":24041}"$)
Dim m As Map = j.NextObject
' m.Remove("entered")
For Each k As Object In m.Keys ' copy all keys to the manually created map fmap
fmap.Put(k,m.Get(k))
Next
Log("fmap.ContainsKey" & fmap.ContainsKey("entered")) ' entered exists
fmap.Remove("entered") ' remove entered
Log(fmap.ContainsKey("entered")) ' entered does not exists anymore