How to wait for text file to open before proceeding?

[VBA_Cancer]

Sub something()
Dim FilePath As String
Dim strFilename As String
Dim strTextLine As String
Dim iFile As Integer: iFile = FreeFile


strFilename = "C:\desktop\file.txt"

Open strFilename For Input As [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=iFile]#iFile[/URL]  'read each line in text individually

Application.Wait (Now + 0.0000058) 'wait for about half a second

Do Until EOF(1)

Line Input [URL=https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=1]#1[/URL] , strTextLine
    Code

Close iFile#

End Sub

This is what I have at the moment. I paused the application for about half a second. I was wondering if there's a way to make it so that it only pauses when the text file is fully open.

Thanks n advance

 

[mole999]

maybe DoEvents just after the file open is issued