Public Sub KeepValue(value As String, _
    Optional ItemName As String = "KeepUserItem", _
    Optional Category As String = "KeepUserSetting")

' Edit custom UserSettings

    
'This example changes the value of a custom setting.
'If the category and item do not exist, they are created.
'The routine then outputs all existing entries in the category.

Dim uset As ISettings
Dim settingsList As List

On Error Resume Next
    'tdc is the global TDConnection object.
    Set uset = tdc.UserSettings
    
    ' Open category.
    uset.Open (Category)

    ' Set a value in the open category.
    uset.value(ItemName) = value
    uset.Post
    
    Set settingsList = uset.EnumItems

    'Get all the values from the
    'server.
    Dim setName
    ' This call is not required, but makes the
    ' following loop more efficient.
    setName = uset.value("*")
    
    'Output the list of settings in the
    ' open category.

    For Each setName In settingsList
        Debug.Print setName, uset.value(setName)
    Next
    
    uset.Close
End Sub