Sub testSubscribeC()
On Error GoTo Handler:

Dim oBlp As BLP_DATA_CTRLLib.BlpData
Dim ReqSecurities As Variant
Dim ReqFields As Variant
Dim vtResult As Variant
Dim n As Integer

Set oBlp = New BlpData
ReqSecurities = Array("VDE.A Equity")

ReqFields = Array("NAME", "ID_SEDOL1", "ID_CUSIP", "ID_ISIN", "ETF_UNDL_INDEX_TICKER")

With oBlp
.SubscriptionMode = ByRequest
.Subscribe ReqSecurities, 3, ReqFields, , , vtResult
End With

Stop 'and look at the results in Local or Watch Window
For n = 0 To UBound(vtResult, 2)
Debug.Print n, vtResult(0, n)
Next

Handler:
If Err.Number <> 0 Then
MsgBox Err.Description, vbCritical
End If

Set oBlp = Nothing
End Sub



##</code><code>##

 2 
 0            VANGUARD ENERGY ETF
 1            B031N66
 2            92204A306
 3            US92204A3068
 4            MSCIEN