To solve your problem you can use this:
create your 'own' data folder in the 'C:\ProgramData\' folder with a name of your choice:
Dim MyDataFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.CommonApplicationData) + "\FolderName\"
create once in your application the data folder:
Directory.CreateDirectory(MyDataFolder)
and save you data with something like:
File.WriteAllText(MyDataFolder + "Mydata.inf", MyData)