Public Sub FilterReqsByType()
      
' Filter requirements by type

' Fetch all the requirements of a specific
' type (for example, Business).
 
Dim oReqFactory As IReqFactory2
Dim oList As IList
Dim aFilter As ITDFilter
Dim oReq As IReq
Dim RType As ReqType
 
    Set oReqFactory = tdc.ReqFactory
    Set aFilter = oReqFactory.Filter

    ' Value of predefined type is
    ' from TDAPI_PREDEFINED_REQ_TYPES.
    aFilter.Filter("RQ_TYPE_ID") = REQ_TYPE_BUSINESS 'REQ_TYPE_UNDEFINED

    ' Value of custom type is the type ID, for example:
    'aFilter.Filter("RQ_TYPE_ID") = 101

    Set oList = aFilter.NewList

    For Each oReq In oList
        Debug.Print oReq.Name & " : " & CStr(oReq.TypeId) & " : " & oReq.RequirementType.Name
    Next

End Sub