Join 3 arrays/arraylist/ranges and pass them to dictionary

Hi,

I am trying to join 3 arrays:

Sub test()

Dim ArrHana, ArrNW, ArrFE, ArrAll As Variant
Dim dicOneList As Object


Set dicOneList = CreateObject("Scripting.dictionary")

ArrHana = Worksheets("HANA scenarios").Range("t_hana[ID]")
ArrNW = Worksheets("NW scenarios").Range("t_nw[ID]")

ArrAll = Join(ArrHana, "-") & Join(ArrNW , "-") 

End Sub

and pass them into dictionary and resize dictionary keys/items into one big list on Excel (put dictionary keys or items into one column range)

How can i do this?
Join function is not working here...why?

Jacek