Вчитался в код. Что-то у вас там капитально неправильно.
1. Уберите нафиг On Error Resume Next. Это одна из конструкций, за которые нужно бить по рукам, за исключением некоторых редких случаев, когда разработчик может убедительно объяснить, зачем он так делает.
Сделаем нормальную обработку ошибок Вместо этого поставьте
On Error Goto TRAP
а в конец добавьте
Exit Sub
TRAP:
MsgBox "Ошибка " & Error & " (" & Err & ")" & "в строке " & Erl
If not Excel is nothing Then Delete Excel
Exit Sub
2. Вместо Set aritem=doc.f1_70_1(0)
Поставьте Set aritem=doc.getFirstItem("f1_70_1")
А дальнейший код обработки значения aritem оберните в
If not aritem is nothing then
.
.
End If