Bereiche verketten

Sub test()

Function BereichVerketten(Rng As Range, Optional strSpace As String) As String
'Verketten über Bereich
Select Case Application.Version
Case Is >= 10  'XL2000 und höher
Dim arrTMP
arrTMP = Rng
BereichVerketten = Join(WorksheetFunction.Transpose(arrTMP), strSpace)
Case Else
Dim C As Range
For Each C In Rng
BereichVerketten = BereichVerketten & C & strSpace
Next
BereichVerketten = Left(BereichVerketten, Len(BereichVerketten) - Len(strSpace))
End Select
End Function


wie müßte ich den umschreiben damit ich auch waagrecht verketten kann ?

Gruss Ludicla