Listbox / Laufzeitfehler 380

' Event Handler
Private Sub m_TWSControl_symbolSamples(ByVal reqId As Long, ByVal contractDescriptions As  _
TWSLib.IContractDescriptionList)
' Array für Listbox füllen
Dim cd As TWSLib.ComContractDescription
Dim derivateTypes As String
Dim i As Long
Dim J As Long
For i = 0 To contractDescriptions.Count - 1
Set cd = contractDescriptions.Item(i)
ReDim Preserve vArray(5, i)
vArray(0, i) = contractDescriptions.Item(i).contract.conId
vArray(1, i) = contractDescriptions.Item(i).contract.Symbol
vArray(2, i) = contractDescriptions.Item(i).contract.secType
vArray(3, i) = contractDescriptions.Item(i).contract.primaryExchange
vArray(4, i) = contractDescriptions.Item(i).contract.currency
derivateTypes = ""
For J = 0 To cd.DerivativeSecTypes.Count - 1
derivateTypes = derivateTypes & cd.DerivativeSecTypes.Item(J) & Space(1)
Next J
vArray(5, i) = derivateTypes
' Array transponieren für Format der Listbox
ReDim tArray(i, 5)
tArray(i, 0) = vArray(0, i)
tArray(i, 1) = vArray(1, i)
tArray(i, 2) = vArray(2, i)
tArray(i, 3) = vArray(3, i)
tArray(i, 4) = vArray(4, i)
tArray(i, 5) = vArray(5, i)
Debug.Print tArray(i, 0)
Debug.Print tArray(i, 1)
Debug.Print tArray(i, 2)
Debug.Print tArray(i, 3)
Debug.Print tArray(i, 4)
Debug.Print tArray(i, 5)
Next i
End Sub 

Sub Userform_Activate()
ListBox1.ColumnCount = 6
ListBox1.ColumnWidths = "2cm;2cm;2cm;2cm;2cm;2cm"
ListBox1.List = tArray
End Sub