sp; End With
Case Cbe.Text
With MSF1(2)
.Rows = .Rows + 1
For j = 1 To mrc3.Fields.Count
If mrc3.Fields(j - 1) <> "Null" Then
.TextMatrix(.Row, j - 1) = mrc3.Fields(j - 1)
End If
Next
.Row = .Row + 1
End With
End Select
Next
mrc3.MoveNext
Loop
For k = 0 To MSF1(1).Rows - 1
For t = 0 To mrc3.Fields.Count - 1
strs = MSF1(1).TextMatrix(k, t)
If strs = "" Then
Exit For
End If
If finnum = 0 Then
ReDim finishst(finnum)
finishst(0) = strs
Else
For c = 0 To finnum
If strs = finishst(c) Then
Exit For
End If
Next
If c > finnum Then
ReDim Preserve finishst(finnum)
finishst(finnum) = strs
