Private Sub Command1_Click()
Dim tmpexcel As Excel.Application, tmpsheet As Excel.Worksheet
Dim i As Integer, J As Integer
Set tmpexcel = New Excel.Application
tmpexcel.Workbooks.Add (1)
Set tmpsheet = tmpexcel.ActiveWorkbook.ActiveSheet
For i = 0 To vsFlex.Rows - 1
For J = 1 To vsFlexTotal.Cols - 1
tmpsheet.Cells(i + 1, J) = vsFlex.TextMatrix(i, J)
Next J
Next i
tmpexcel.Visible = True
End Sub