Transpose simple question
 

Hello,

I have a one dimensional array (one column, many rows). I try to
transpose it so to get one row, many columns but don't succeed

A simple example
Dim myarray As Variant
Dim myarrayT As Variant
myarray = xlApp.ActiveSheet.Range("A1:A10")
myarrayT = xlApp.Transpose(myarray)
MsgBox UBound(myarrayT, 1) returns the number of rows of the
original array (instead of 1)
MsgBox UBound(myarrayT, 2) does'nt work (out of range)

Do I miss something?
Remark: I am working in VB6

Thanks a lot
Avi