I do I loop to load a file :

Code:
On Error GoTo BadPath
stat ("Opening " & Right$(a, Len(a) = 6) & " . . . ")
'-------------------------------------
ProgressBar1.Max= TotalOfLine
'-------------------------------------
Open Right$(a, Len(a) - 6) For Input As #1
Do Until EOF(1)
Line Input #1, temp$
'-------------------------------------
ProgressBar1.value = lineCompleted
'-------------------------------------
Editor = Editor & temp$ & vbCrLf
'-------------------------------------
'Wait HERE
'-------------------------------------
Loop
Close #1
txt = txt & vbCrLf
Editor.Visible = True
txt.Visible = False
Exit Sub
BadPath:
    Editor.Visible = False
    txt.Visible = True
    stat ("*** Invalid file name")
    Exit Sub
End Sub


I need that:
1) Do the program wait to write 1 millisecond
2) Count the number of line in the file
3) Count how many line is loaded in Editor.test