With the project Im running, I just use the builtin SaveSetting() and GetSetting() functions.
Format (All args are type String):
GetSetting(HKCU Folder, SubFolder, Key, Default Value If Key Not Found)
SaveSetting(HKCU Folder, SubFolder, Key, Value)
(Caveat - This places the folder under "HKCU\Software\VB and VBA Program Settings" - Cool for some of us, but if youre deploying something name-worthy, Im not sure how to keep it from sticking it there)
Example:
Dim SaveDir As String = GetSetting("MyProj", "Settings", "FileLocation", CStr(MyDocs) & "\MyProj Personal Files\")
Or
SaveSetting("MyProj", "Settings", "FileLocation", InputBox1.Text)
---
Just as an added bonus, Ive seen a lot of people asking for a way to find out the current "My Documents" directory, since it is changeable and will vary on a multi-user machine.. the way I do it is just with a couple little lines at the top:
Dim aKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders")
Dim MyDocs As Object = aKey.GetValue("Personal")
Also note you must use an "Imports Microsoft.Win32" to use the RegistryKey type
Hope this helps!
-Morgon