i am trying to get gethistoricaldata2 to function as a free-standing
sub to get a better understanding of it.
i cannot seem to get it to work. my code is below and any pointers
would be a huge help

Dim BlpControl As BBData

public Sub A()
Dim nRow As Integer
Dim nColumn As Integer
Dim vtSecurities As Variant
Dim vtfields As Variant
Dim dtStart As Date
Dim dtEnd As Date
Dim BbgTick As BLP_DATA_CTRLLib.BlpData
Dim vtseclist
Dim dtStartDate
Dim dtEndDate

vtfields = "Price"
vtseclist = "CCC US EQUITY"
dtStartDate = "8/10/2009"
dtEndDate = "8/10/2009"

BbgTick.SubscriptionMode = BySecurity
BbgTick.AutoRelease = False




If BlpControl Is Nothing Then Set BlpControl = New BBData
BbgTick.GetHistoricalData2 vtseclist, nCookie, vtfields,
dtStartDate, "USD", dtEndDate, 0


End Sub