I confess that I don't know what I am doing here please be patient. I am trying to share out a folder and I don't quite know how to do it. So far, the examples I have found are not working for me. Any help would be appreciated...

Here is my code:

Set gwFolders = gwAccount.AllFolders
Set gwFolder = gwFolders.ItemByName(Trim$(splitstring(1)))
Set gwRights = gwFolder.FolderRights.Add(UserID.text,7)