Negrito Novato

[El negrito]

Gracias Amigo , a decir verdad la decoracion de la progressbar y el timer la agregue despues. La funcion para guardar es la siguiente:

Open "C:\medios.dat" For Append As 1
Write #1, Text1.Text
Write #1, Text2.Text
Write #1, Text3.Text
Write #1, Text4.Text
Write #1, Text5.Text
Write #1, Text6.Text
Write #1, Text7.Text
Write #1, Text8.Text
Write #1, Text9.Text
Write #1, Text10.Text
ProgressBar1.Value = 0
Timer1.Enabled = True
Close #1
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""

y luego la busqueda por provincias y que lo muestre en un textbox uno debajo de otro que no funciona es:

Open "C:\medios.dat" For Input As 1
Do While Not EOF(1)
Input #1, medio
Input #1, capint
Input #1, prov 'campo a mostrar
Input #1, tmedio
Input #1, repre
Input #1, dire
Input #1, ejec
Input #1, teldto
Input #1, celu
Input #1, email
ProgressBar1.Value = 0
Timer1.Enabled = True
If prov = Text12.Text Then
Text11.Text = medio + Chr(10) + Chr(13)
End If
Loop
Close #1

Desde ya agradezco tu amable atencion y celeridad.
El negrito