Public Function Convert2DArray(ByRef vArray As Variant, ByVal D1 As Long) As _
  Variant
 
    Dim NewArray() As Variant
    Dim tmpN As Long
    Dim lngMin1D As Long
    Dim lngMax1D As Long
    Dim lngMin2D As Long
    Dim lngMax2D As Long
 
    On Error GoTo Convert2DArrayError
 
    If IsArray(vArray) = False Then
        GoTo Convert2DArrayError
    End If
    lngMin1D = LBound(vArray, 1)
    lngMax1D = UBound(vArray, 1)
    If D1 < lngMin1D Then
        D1 = lngMin1D
    End If
    If D1 > lngMax1D Then
        D1 = lngMax1D
    End If
    lngMin2D = LBound(vArray, 2)
    lngMax2D = UBound(vArray, 2)
    ReDim NewArray(lngMin2D To lngMax2D) As Variant
    For tmpN = lngMin2D To lngMax2D
        NewArray(tmpN) = vArray(D1, tmpN)
    Next tmpN
    Convert2DArray = NewArray
    Exit Function
 
Convert2DArrayError:
    Convert2DArray = Empty
    Exit Function
 
End Function

Dim MyArray(0 To 4, 0 To 6) As String
Dim tmpX As Long
Dim tmpY As Long
Dim Array1D As Variant
 
For tmpX = 0 To 4
    For tmpY = 0 To 6
        MyArray(tmpX, tmpY) = CStr((tmpY + 1) * 10 + (tmpX + 1))
    Next tmpY
Next tmpX
Array1D = Convert2DArray(MyArray, 3)