RedimArrayMD

Private Sub Redim_Array(WrkAry() As String, _
        NewRowSize As Integer)
    'Redim a multi-dimension array that will allow
    'an extra row to be added.
    Dim TempAry() As String
    Dim row As Integer, col As Integer, CurRows As Integer
    'Arrays look like this, Ary(Row, Col)with
    'rows first then columns. **
    CurRows = NewRowSize - 1
    '** need To Get WrkAry() current row number. **
    ReDim TempAry(CurRows, 5)
    '** create same size temp array as In coming WrkAry() array.
    'the columns will stay the same. **
    'move multi-dimension WrkAry() to an
    'exact copy multi-dimension TempAry(). **
    For row = 0 To CurRows
        For col = 0 To 5
            TempAry(row, col) = WrkAry(row, col)
        Next col
    Next row
    ReDim WrkAry(NewRowSize, 5)
    're-dimension WrkAry() With one more row. **
    'copy TempAry() to WrkAry() which is now one row larger
    'but not being used at this time. **
    For row = 0 To CurRows
        For col = 0 To 5
            WrkAry(row, col) = TempAry(row, col)
        Next col
    Next row
    'WrkAry() will keep all of its origin al data and has
    'one more row for more data later. **
End Sub

Inputs:
Input array.

Returns:
A redim multi-dimension array.

Private Sub Form_Load()
Dim WorkAry() As String
Dim row As Integer, col As Integer, rowsize As Integer
rowsize = 5
ReDim WorkAry(rowsize, 5)
For row = 0 To 5
For col = 0 To 5
WorkAry(row, col) = row & "-" & col
Next col
Next row
rowsize = rowsize + 1
Call Redim_Array(WorkAry(), rowsize)
'** now add data into the extra line for WorkAry() array. **

col = 0
For col = 0 To 5
WorkAry(rowsize, col) = rowsize & "-" & col
Next col
End Sub

Private Sub Redim_Array(WrkAry() As String, _
NewRowSize As Integer)
'Redim a multi-dimension array that will allow

'an extra row to be added.

Dim TempAry() As String
Dim row As Integer, col As Integer, CurRows As Integer
'Arrays look like this, Ary(Row, Col)with

'rows first then columns. **

CurRows = NewRowSize - 1
'** need To Get WrkAry() current row number. **

ReDim TempAry(CurRows, 5)
'** create same size temp array as In coming WrkAry() array.

'the columns will stay the same. **

'move multi-dimension WrkAry() to an

'exact copy multi-dimension TempAry(). **

For row = 0 To CurRows
For col = 0 To 5
TempAry(row, col) = WrkAry(row, col)
Next col
Next row
ReDim WrkAry(NewRowSize, 5)
're-dimension WrkAry() With one more row. **

'copy TempAry() to WrkAry() which is now one row larger

'but not being used at this time. **

For row = 0 To CurRows
For col = 0 To 5
WrkAry(row, col) = TempAry(row, col)
Next col
Next row
'WrkAry() will keep all of its origin al data and has

'one more row for more data later. **

End Sub

Inputs:
Input array.

Returns:
A redim multi-dimension array.