Sub Process_Globals
....
Dim KVS As KeyValueStore 'This is the first version v1.01
Dim RP As RuntimePermissions
Dim SafeFolder As String
...
End Sub
Sub Service_Create
SafeFolder=RP.GetSafeDirDefaultExternal("")
'Error occurs here:'
KVS.Initialize(SafeFolder ,"kvs")
...
End Sub