Add a New Filed to GP

I added a DUOS field on GP. The field name is Title. The code was as below. Now I need to add another field category. should I create a new collection and object?


Private Sub OK_Changed()
    Dim CMATitleCollection As DUOSObjects
    Dim CMATitleObject As DUOSObject
    Set CMATitleCollection = DUOSObjectsGet("CMA Title")

If EmployeeID.Empty = False Then
Set CMATitleObject = CMATitleCollection.Item(EmployeeID)
CMATitleObject.Properties("Title") = Title
End If
End Sub