DIM TmpList(Count-1) as Integer