Simply...
Imports Microsoft.VisualBasic
Dim s As String
SaveSetting("(AppName)", "(SectionName)", "(Key)", "(Your Value)")
s = GetSetting("(AppName)", "(SectionName)", "(Key)", "(Default Value)")
Replace (AppName), (SectionName), (Key) with the corresponding values. Data will be saved in HKEY_CURRENT_USER \ Software \ VB and VBA Program Settings \ (AppName)
source
share