Private Sub AddTestPlanFolderToCoverage(reqID As Integer, FolderId As Integer)

' Add test plan folder to coverage
        
    Dim coverable As ICoverableReq
    Dim reqF As ReqFactory
    Dim aReq As Req
            
    Set reqF = tdc.ReqFactory
    Set aReq = reqF.Item(reqID)
    Set coverable = aReq
    coverable.AddSubjectToCoverage FolderId, ""

    Set coverable = Nothing
    Set reqF = Nothing
    Set aReq = Nothing
End Sub