vba 显示subscript out of range 该怎么修改

有知道这个情况该怎么改吗 编码在图片里 显示标黄的那一行出错 编码我看不出有问题

图片看不到，从错误提示看，是数组下标索引越界。