Sub ProjectList()
'List the names of the projects in a domain

Dim pName

'tdc is the global TDConnection object.
For Each pName In tdc.ProjectsListEx("Default")
    Debug.Print pName
Next

End Sub