Terusan Export Excell dari database dengan VB6

Setelah beberapa waktu yang lalu aku posting tentang export excell dari database kita dengan VB6 n adanya kesalahan dalam penulisan kode, setelah aku analisis dan pemberitahuan teman maka aku tambahi ni source codenya.
pada waktu kemarin itu kurang tranposedim(array)

Function TransposeDim(v As Variant) As Variant
Dim X As Long, Y As Long, Xupper As Long, Yupper As Long
Dim tempArray As Variant

Xupper = UBound(v, 2)
Yupper = UBound(v, 1)

ReDim tempArray(Xupper, Yupper)
For X = 0 To Xupper
For Y = 0 To Yupper
tempArray(X, Y) = v(Y, X)
Next Y
Next X

TransposeDim = tempArray

End Function

terima kasih atas kunjungan, tolong kasih komentarnya donk.
semoga bermanfaat aja