You do not actually have any error trapping, which might identify where the error is occurring.
In the debug print you use Join( but you have not dimensioned Join to tell Access what it is.
You should also redim the A1 Variant before using it.