Tạo mảng 1 chiều bằng phương thức gán ?

[sealand]

Mình có 2 ví dụ:
1/Ví dụ 1:

Sub Test()
Dim Arr, ch
Arr = WorksheetFunction.Transpose(Sheet1.[a1:a20])
ch = Join(Arr, ";")
MsgBox ch
End Sub

2/Ví dụ 2:

Sub Test()
Dim Arr, ch
Arr = Sheet1.[a1:a20]
[U]ch = Join(Arr, ";")[/U]
MsgBox ch
End Sub

Ví dụ 2 bị lỗi dòng gach chân. Đây là lỗi không chấp nhận mảng Arr là mảng 1 chiều.
Vậy mình xin được trợ giúp:
-Làm cách nào để chuyển thành mảng 1 chiều khi sử dụng phương thức gán (=) để áp dụng đối với hàm Join, Filter v.v...
-Ngoài việc dùng Hàm Transpose() và gán từng Item của mảng, còn cách nào tạo mảng 1 chiều không.
Cám ơn sự trợ giúp của các bạn.

-