Variant Array to single line Text file

[dfwade]

Dim v() As Variant
ReDim Preserve v(4)
v(0) = "This"
v(1) = "is"
v(2) = "a"
v(3) = "Test"
Dim str As String
str = Join(v, " ")
Print str