Dim vssItem As SourceSafeTypeLib.VSSItem

 Dim vssChildItem As SourceSafeTypeLib.VSSItem


 vssItem = vssDatabase.VSSItem(FileSpec)

 For Each vssChildItem In vssItem.Items
    If vssChildItem.Type = _
            SourceSafeTypeLib.VSSItemType.VSSITEM_PROJECT Then
        ‘Do Something
    End If

 Next