Requirements Factory - Trying to create excel traceability

Hey I am coding a subroutine in the Requirements module that I can execute that will pull all the requirements into Excel with certain fields as well as pulling Tests and their fields that the requirement is mapped to and I am having an issue knowing how to find all the Tests that a specific requirement is mapped to. 

Can anyone help? below is a code snippet...... (also for some reason the Target Release and Cycle returns nothing even though there is data there)

Thanks 

Set ireqF = TDConnection.ReqFactory.Filter

Set ListsOfReqs = ireqF.NewList()

For each req in ListsOfReqs
          With exportSheet.Cells(exportRow,exportCol)
              .WrapText = True
              .Value = stripHTML(req.Field("RQ_REQ_ID"))
              .Font.Size = 10
              .Font.Bold = False
              .HorizontalAlignment= xlLeft
              .VerticalAlignment = xlTop
          End With
          exportCol = exportCol +1
          With exportSheet.Cells(exportRow,exportCol)
              .WrapText = True
              .Value = stripHTML(req.Field("RQ_REQ_NAME"))
              .Font.Size = 10
              .Font.Bold = False
              .HorizontalAlignment= xlLeft
              .VerticalAlignment = xlTop
          End With
          exportCol = exportCol +1
          With exportSheet.Cells(exportRow,exportCol)
              .WrapText = True
              .Value = stripHTML(req.Field("RQ_TYPE_ID"))
              .Font.Size = 8
              .Font.Bold = False
              .HorizontalAlignment= xlLeft
              .VerticalAlignment = xlTop
          End With
         exportCol = exportCol +1
          With exportSheet.Cells(exportRow,exportCol)
              .WrapText = True
              .Value = stripHTML(req.Field("RQ_REQ_PRODUCT"))
              .Font.Size = 10
              .Font.Bold = False
              .HorizontalAlignment= xlLeft
              .VerticalAlignment = xlTop
          End With
          exportCol = exportCol +1
          With exportSheet.Cells(exportRow,exportCol)
              .WrapText = True
              .Value = stripHTML(req.Field("RQ_REQ_COMMENT"))
              .Font.Size = 8
              .Font.Bold = False
              .HorizontalAlignment= xlLeft
              .VerticalAlignment = xlTop
          End With
          exportCol = exportCol +1
          With exportSheet.Cells(exportRow,exportCol)
              .WrapText = True
              .Value = stripHTML(req.Field("RQ_TARGET_REL"))
              .Font.Size = 10
              .Font.Bold = False
              .HorizontalAlignment= xlLeft
              .VerticalAlignment = xlTop
          End With
          exportCol = exportCol +1
          With exportSheet.Cells(exportRow,exportCol)
              .WrapText = True
              .Value = stripHTML(req.Field("RQ_TARGET_RCYC"))
              .Font.Size = 10
              .Font.Bold = False
              .HorizontalAlignment= xlLeft
              .VerticalAlignment = xlTop
          End With
          exportRow = exportRow +1
          exportCol = 1
       end if
   Next