Tøm array hvordan gøres dette

jeg har følgende kode, mit problem er dog bare at mit data forbliver i mit array efter det er afvilket og bliver derefter brugt i Noget andet kode på min side hvilket bestemt ikke er meningen :-s
hvordan søger jeg for at det bliver tømt/slette efter denne kode er afviklet ?

If Not LC.EOF Then arrRecords = LC.getrows()
LC.Close
Set LC = Nothing

For i = 0 To Ubound(arrRecords, 2)
SenID = arrRecords(1,i)
SenB  = arrRecords(0,i)
Application("SenC" & SenID & "-" & ServiceCount) = Smileys(SenB)
Next