Solved: Join an array and join a Range

[Benzadeus]

I'm having an issue with these codes:

[VBA]Sub Test1()
'***
'Values of cells A1 = "Hi" and B1 = "Lo"
'***

Debug.Print Join(Range("A1:B1"), ", ") 'I want 'Hi, Lo' as output.
End Sub
[/VBA]

and this:

[VBA]Sub Test2()
'***
'Values of cells A1 = "Hi" and B1 = "Lo"
'***

Dim var 'What type is this variable?

Set var = Range("A1:B1")

Debug.Print Join(var, ", ") 'I want 'Hi, Lo' as output.
End Sub
[/VBA]

How do I make them work?

[Bob Phillips]

[vba]

Dim ary

ary = Range("A1:B1")
Debug.Print Join(Application.Transpose(Application.Transpose(ary)), ", ")
[/vba]

[p45cal]

This seems to work:
[VBA]Debug.Print Join(Application.Index(Range("A1:B1").Value, 0), ", ")[/VBA]

[Benzadeus]

Thank you very much.