>Dim AB As Object >Dim qt As Object >Dim aDate, aOpen, aHigh, aLow, aClose, aVolume, aOpenInt As Variant > >Set AB = CreateObject("Broker.Application") >Set QT = AB.Stocks(Symbol.Text).Quotations > >NumQuotes = QT.Retrieve(-1, aDate, aOpen, aHigh, aLow, aClose, aVolume, aOpenInt) > >List1.Clear > >For i = 0 To NumQuotes - 1 > List1.AddItem (aDate(i) & "," & aOpen(i) & "," & aHigh(i) & "," & aLow(i) & "," & aClose(i) & "," & aVolume(i)) >Next > >>