Hi

I would like to create a array two dimension like below


+-----------+----------+----------+
| Titulo | Valor1 | Valor2 |
+-----------|----------|----------|
| Titulo1 | 10 | 5 |
| Titulo2 | 20 | 10 |
+-----------+----------+----------+

I tried to use code below, but return conversion type, somebody have some other idea How can I do It


Code:
     Private Sub Form_Load()
         Dim myArray() As String
         ReDim myArray(2, 0)
         Add myArray, "Titulo01", "10", "5"
         Add myArray, "Titulo02", "20", "10"
         myArray = TransposeArray(myArray)
     
     
     End Sub
     Private Sub Add(ByRef myArray() As String, PTitulo As String, valor1 As String, valor2 As String)
         If Not (myArray(0, 0) = vbNullString And myArray(1, 0) = vbNullString) Then
             ReDim Preserve myArray(2, UBound(myArray, 2) + 1)
         End If
         myArray(0, UBound(myArray, 2)) = PTitulo
         myArray(1, UBound(myArray, 2)) = valor1
         myArray(2, UBound(myArray, 2)) = valor2
     
     
     
     
     End Sub
     Public Function TransposeArray(myArray As Variant) As Variant
     
         Dim X As Long
         Dim Y As Long
         Dim Xupper As Long
         Dim Yupper As Long
         Dim tempArray As Variant
         Xupper = UBound(myArray, 2)
         Yupper = UBound(myArray, 1)
         ReDim tempArray(Xupper, Yupper)
         For X = 0 To Xupper
             For Y = 0 To Yupper
                 tempArray(X, Y) = myArray(Y, X)
             Next Y
         Next X
         TransposeArray = tempArray
     End Function