Dim vtSec As Variant <br>
 Dim vtFields As Variant<br>
 Dim vtData As Variant<br>


    strSecId = Cells(currRow, colSecurityID).Value <br>
      vtSec = Array(Cells(currRow, colBBCode).Value & "  " & Cells(currRow, colSecType).Value)<br>
      vtData = bbObject.BlpGetHistoricalData(vtSec, vtFields, CDate(strBdate), CDate(strEDate)) <br>