This is just a guess since there is no sample file to look at but try

Dim arr as Variant

instead of

Dim arr() as String