This example uses the Discussions property to return a discussion that’s a response to the specified discussion, and then it sets the returned discussion's subject to "More Supply Questions".
Dim dscDiscussions As Discussions
Set dscDiscussions = OpenDiscussions("http://samples.microsoft.com")
dscDiscussions(1).Discussions(3).Subject = _
"More Supply Questions