Private Sub Command1_Click()
On Error GoTo Err_Command1_Click
Dim intCanal As Integer
intCanal = FreeFile
Open "c:\Borrar\Archivo.txt" For Output As intCanal
Dim int1 As Integer
For int1 = 0 To 9
Print #intCanal, Matriz(int1, 0), Matriz(int1, 1) _
, Matriz(int1, 2), Matriz(int1, 3), Matriz(int1, 4) _
, Matriz(int1, 5), Matriz(int1, 6), Matriz(int1, 7)
Next int1
Exit_Command1_Click:
On Local Error Resume Next
Close #intCanal
Exit Sub
Err_Command1_Click:
MsgBox Err.Description, vbCritical
Resume Exit_Command1_Click
End Sub