建议是单独存放到一个类模块中

公共定义

Private appName As String
Private section As String

类初始化

Private Sub Class_Initialize()
    appName = "customAppName"
    section = "customSection"
End Sub

添加注册表项

Public Function setItem(ByVal key As String, ByVal value As String)
    SaveSetting appName:=customAppName, section:=customSection, key:=key, Setting:=value
End Function

获取注册表项

Public Function getItem(ByVal key As String) As String
    getItem = GetSetting(appName:=customAppName, section:=customSection, key:=key)
End Function

删除注册表项

Public Function delItem(ByVal key As String)
    DeleteSetting appName:=customAppName, section:=customSection, key:=key
End Function