Dim parser As JSONParser
parser.Initialize($"{"Neujahrstag":{"datum":"2023-01-01","hinweis":""},"Heilige Drei K\u00f6nige":{"datum":"2023-01-06","hinweis":""},"Gr\u00fcndonnerstag":{"datum":"2023-04-06","hinweis":"Gem\u00e4\u00df \u00a7 4 Abs. 3 des Feiertagsgesetzes von Baden-W\u00fcrttemberg[10] haben Sch\u00fcler am Gr\u00fcndonnerstag und am Reformationstag schulfrei. In der Regel legt das Kultusministerium die Ferientermine so fest, dass diese beiden Tage in die Osterferien bzw. in die Herbstferien fallen."},"Karfreitag":{"datum":"2023-04-07","hinweis":""},"Ostermontag":{"datum":"2023-04-10","hinweis":""},"Tag der Arbeit":{"datum":"2023-05-01","hinweis":""},"Christi Himmelfahrt":{"datum":"2023-05-18","hinweis":""},"Pfingstmontag":{"datum":"2023-05-29","hinweis":""},"Fronleichnam":{"datum":"2023-06-08","hinweis":""},"Tag der Deutschen Einheit":{"datum":"2023-10-03","hinweis":""},"Reformationstag":{"datum":"2023-10-31","hinweis":"Gem\u00e4\u00df \u00a7 4 Abs. 3 des Feiertagsgesetzes von Baden-W\u00fcrttemberg[10] haben Sch\u00fcler am Gr\u00fcndonnerstag und am Reformationstag schulfrei. In der Regel legt das Kultusministerium die Ferientermine so fest, dass diese beiden Tage in die Osterferien bzw. in die Herbstferien fallen."},"Allerheiligen":{"datum":"2023-11-01","hinweis":""},"1. Weihnachtstag":{"datum":"2023-12-25","hinweis":""},"2. Weihnachtstag":{"datum":"2023-12-26","hinweis":""}}"$)
Dim jRoot As Map = parser.NextObject
For Each k As String In jRoot.Keys
Dim YourFeiertag As Map = jRoot.Get(k)
Log(k)
Log(YourFeiertag.Get("datum"))
Log(YourFeiertag.Get("hinweis"))
Next