Converting 2D arrays to 1D

Sub a()
n = 10
Dim arr(), arr1()
arr = Range("A1:A" & n).Value
arr1 = Application.Transpose(arr)
For i = 1 To 10
Debug.Print arr1(i);
Next
Debug.Print
End Sub

Dim arr1 As Variant
    
    arr1 = Application.WorksheetFunction.Index(MyArray, 1, 0)

option base 1
Sub aa()

Dim arr(3, 1), arr1()
arr(1, 1) = "One"
arr(2, 1) = "Two"
arr(3, 1) = "Three"

arr1 = Application.Transpose(arr)
For i = 1 To 3
Debug.Print arr1(i);
Next
Debug.Print
End Sub

Sub Test()
    Dim MyArray(0 To 1, 1 To 3)
    Dim NewArray
    Dim i As Long
    MyArray(0, 1) = "One"
    MyArray(0, 2) = "Two"
    MyArray(0, 3) = "Three"
    MyArray(1, 1) = 0
    MyArray(1, 2) = 0
    MyArray(1, 3) = 0
    NewArray = Application.Index(MyArray, 1, 0)
    For i = LBound(NewArray) To UBound(NewArray)
        MsgBox NewArray(i)
    Next i
End Sub

Dim  test1 As Variant, test2 As Variant, test3 As Variant, MyArray As Variant
Set ep = New ADODB.Recordset
On Error GoTo NoTable
ep.Open "SELECT Serial, Lyrics FROM tbl" & Yr, cnn, adOpenKeyset, adLockReadOnly
MyArray = ep.GetRows
ep.Close
Set ep = Nothing

test1 = Application.Transpose(MyArray)

test2 = Application.WorksheetFunction.index(MyArray, 1, 0)

test3 = Application.index(MyArray, 1, 0)

Stop
Exit Function

NoTable:
If Err = -2147217865 Then
        Set ep = Nothing
    Else
        Resume Next
End If