Суммирует файл данных в словарь, используя объекты класса

Question

У меня есть данные о торговле в файле, подобном:

TIME|DIRECTION|ORDERID|SYMBOL|ROUTE||QUANTITY|PRICE
2012-05-29 11:17:18|B|1337|ZNGA|ARCA||6500|5.48
2012-05-29 11:17:53|B|1389|AAPL|ARCA||200|569.85
2012-05-29 11:18:22|S|1970|BRK/B|ARCA||600|77.48
2012-05-29 11:18:24|B|2335|BRK/B|ARCA||600|79.3
2012-05-29 11:19:27|B|2416|ZNGA|ARCA||4000|6.08
2012-05-29 11:19:29|S|2997|LNKD|ARCA||500|91.27
2012-05-29 11:19:40|S|3078|ZNGA|ARCA||3900|6.04

Я пытаюсь написать код VBA, который будет использовать данные и возвращать статистику, основанную на тикере (совокупное количество, цена и т. Д.).Я написал код, используя объект словаря с объектом класса.Это для назначения, поэтому я должен сделать это таким образом.

Я хочу закончить со словарем, где каждый ключ представляет свой тикер (т. Е. AAPL, ZNGA и т. Д.), А значения представляютразная статистика.Окончательная цена, итоговое количество и т. Д.

Итак, с приведенным выше фрагментом файла я должен получить:

ticker,cashVal,positionVal,endPriceVal,maxDateVal
ZNGA,39864,6600,6.04,2012-05-29 11:19:40
AAPL,113970,200,569.85,2012-05-29 11:17:53 

... и т. Д.

У меня естьследующий код VBA:

Sub defineVar()
myFile = Range("$A$2")
End Sub

Public Sub test_everything()

Call defineVar

'Dim line As trade
Dim lines As Collection
Set lines = New Collection

Open myFile For Input As #1
Do Until EOF(1)
    Line Input #1, file_line
    lines.Add file_line
Loop
Close #1


Dim posTime As Byte
Dim posDirection As Byte
Dim posSymbol As Byte
Dim posQuantity As Byte
Dim posPrice As Byte

posTime = getColPosByHeader("TIME", lines(1))
posDirection = getColPosByHeader("DIRECTION", lines(1))
posSymbol = getColPosByHeader("SYMBOL", lines(1))
posQuantity = getColPosByHeader("QUANTITY", lines(1))
posPrice = getColPosByHeader("PRICE", lines(1))

Dim pos As Long
Dim ticker As String

Dim trades As Scripting.Dictionary
Set trades = New Scripting.Dictionary
Dim trade As Stock
Set trade = New Stock

pos = 2

While pos <= lines.Count
    lineItems = Split(lines(pos), "|")
    ticker = lineItems(posSymbol)
    If Not trades.exists(ticker) Then
        trade.symbol = ticker
        trade.cashVal = 0
        trade.positionVal = lineItems(posQuantity)
        trade.endPriceVal = lineItems(posPrice)
        trade.maxDateVal = lineItems(posTime)
        trades.Add trade.symbol, trade
        If InStr(1, lineItems(posDirection), "B") Then
            trades(ticker).cashVal = trades(ticker).cashVal - lineItems(posQuantity) * lineItems(posPrice)
        Else: trades(ticker).cashVal = trades(ticker).cashVal + lineItems(posQuantity) * lineItems(posPrice)
        End If
    Else:
    If InStr(1, lineItems(posDirection), "B") Then
        trades(ticker).cashVal = trades(ticker).cashVal - lineItems(posQuantity) * lineItems(posPrice)
        trades(ticker).positionVal = trades(ticker).positionVal + lineItems(posQuantity)
            If lineItems(posTime) >= trades(ticker).maxDateVal Then
                trades(ticker).maxDateVal = lineItems(posTime)
                trades(ticker).endPriceVal = lineItems(posPrice)
                End If
    Else: trades(ticker).cashVal = trades(ticker).cashVal + lineItems(posQuantity) * lineItems(posPrice)
        trades(ticker).positionVal = trades(ticker).positionVal - lineItems(posQuantity)
        If lineItems(posTime) >= trades(ticker).maxDateVal Then
            trades(ticker).maxDateVal = lineItems(posTime)
            trades(ticker).endPriceVal = lineItems(posPrice)
        End If
    End If
    End If
    Debug.Print trades(ticker).positionVal
    pos = pos + 1
Wend

Dim k As Variant
For Each k In trades.Keys
    Debug.Print k, trades(k).cashVal, trades(k).positionVal, trades(k).endPriceVal, trades(k).maxDateVal
Next

End Sub

Вот как выглядят мои объекты классов:

'Class Module: Stock
Public symbol As String
Public cashVal As Double
Public positionVal As Double
Public endPriceVal As Double
Public maxDateVal As Date

Моя проблема в том, что словарь возвращает все одинаковые значения, прикрепленные к разным ключам.Это не различие между ключами.Я прочесывал код на предмет логической ошибки, но я ее не вижу.Что я делаю не так?