Hacer bucle de pedido de Diskkette

[OXIGENO]

hola amigo!
Volvi!
aca te dejo mi codigo.... por si las dudas!

Private Sub Command1_Click()
On Error Resume Next
Dim fso As New FileSystemObject, txtfile, fil1 As File, ts As TextStream
Dim MiMatriz
Set fil1 = fso.GetFile("A:\prueba.txt")
If Err.Number = 53 Or Err.Number = 91 Then
MsgBox "Inserta el disequete maldito bastardo!!!!"
ElseIf Err.Number = 0 And Err.Number <> 53 And Err.Number <> 91 Then
' Lee el contenido del archivo txt.
Set ts = fil1.OpenAsTextStream(ForReading)
' Saltea el primer renglon del txt
ts.SkipLine
' Lee el segundo renglon del txt y lo almacena en una var
s = ts.ReadLine
' Guardo cada palabra del segundo renglon en un array
MiMatriz = Split(s, , -1, 1)
' ubound me da el nro maximo de elementos de el array
Max = UBound(MiMatriz)
' como el array comienza en 0 le sumo 1
Max = Max + 1
' Recorro el array y voy mostrando palabra por palabra
For i = 0 To Max
MsgBox MiMatriz(i)
Next
ts.Close
Else
MsgBox "Error desconocido: " + Err.Number
End If
End Sub