将数组添加到集合

Question

我想创建一个数组集合。但是我在第一个错误。怎么了 ？

lastPrev = shPrev.Range("a15000").End(xlUp).Row
'load the arrays
For Each c In shPrev.Range("A10:A" & lastPrev)
    ar = c.Offset(0, 11).Resize(1, 4)
    col.Add CStr(c.Value2), ar     'type mismatch error here
Next c

我在调试模式下检查，键具有字符串值，并且我的数组是一个不错的数组。