Я получил эту ошибку, хотя выбираю «Библиотеку типов Arena 16.0».
Попробуйте это:
Dim oModel as Object Set oModel = CreateObject("Arena.Application")