Private KVS As KeyValueStore 'Process_Global
KVS.Initialize(File.DirData("MyApp"), "datastore.db") 'App Start
KVS.Put("TextArea1 Contents", TextArea1.Text) 'write data
'If KVS.ContainsKey("TextArea1 Contents") Then
TextArea1.Text = KVS.Get("TextArea1 Contents") 'get the data ... (your choice to check that key exists first.)
'End If