Просто ...
Imports Microsoft.VisualBasic
Dim s As String
SaveSetting("(AppName)", "(SectionName)", "(Key)", "(Your Value)")
s = GetSetting("(AppName)", "(SectionName)", "(Key)", "(Default Value)")
Заменить (AppName), (SectionName), (Key) соответствующими значениями. Данные будут сохранены в папке HKEY_CURRENT_USER \ Software \ VB и VBA Program Settings \ (AppName)