C#

Public Shared Function GetSettings() As RootObject

            Dim oRootObject As RootObject = Nothing
            Dim appData = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
            Dim appPath = appData + My.Resources.AppSettingsJsonPath
            If Not (File.Exists(appPath)) Then
                Create_AppSettings()
            End If

            Try

                Using jsonStream = New FileStream(appPath, FileMode.Open, FileAccess.Read)

                    Dim fileLen = jsonStream.Length
                    Dim fileData = New Byte(fileLen) {}
                    Dim jsonLen = jsonStream.Read(fileData, 0, fileLen)
                    Dim fileText = Encoding.UTF8.GetString(fileData)
                    oRootObject = JsonConvert.DeserializeObject(Of RootObject)(fileText)

                End Using

            Catch ex As Exception
                ErrorLogging.NLog_Exception(ex, "Read appSettings.json")
            End Try

            Return oRootObject

        End Function

Public Shared Sub WriteSettings(ByVal rootObject As RootObject)

            Dim appData = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
            Dim appPath = appData + My.Resources.AppSettingsJsonPath
            If Not (IsFileInUse(appPath)) Then

                If rootObject.ProductInfo IsNot Nothing Then
                    rootObject.ProductInfo.Name = Application.ProductName
                    rootObject.ProductInfo.Version = Application.ProductVersion
                End If

                If rootObject.Settings IsNot Nothing Then
                    rootObject.Settings.Version = Application.ProductVersion
                End If

                Try

                    Dim oJs = JsonConvert.SerializeObject(rootObject, Formatting.Indented)
                    Do Until Not IsFileInUse(appPath)
                        Application.DoEvents()
                    Loop
                    Dim bytes() = New UTF8Encoding(True).GetBytes(oJs)
                    Using jsonStream = File.OpenWrite(appPath)
                        jsonStream.Write(bytes, 0, bytes.Length)
                    End Using

                Catch ex As Exception
                    ErrorLogging.NLog_Exception(ex, "Write appSettings.json")
                End Try

            End If

        End Sub

public int CurrentHitPoints { get; set; }
        public int MaximumHitPoints { get; set; }
        public int Gold
        {
            get
               {
                 return Gold;
               }

            set
            {
                if (value == 20)
               {
                  value += 5;
                  Gold = value;
               }
            }
        }
        public int ExperiencePoints { get; set; }
        public int Level { get; set; }