Yup! typo

1)
ReDim b(1 To Rows.Count, 1 To 1): n = 0
2)
b(n, 1) = .Execute(a(1, i))(0)