Как проверить наличие информации в файле - VB

Формулировка задачи:

Добрый день! Возник вопрос проверки наличия данных в файле. Задача - программой на VB отследить наличие и считать информацию из текстового файла, который в этот момент создает другая программа. Столкнулся с проблемой - файл создан и вроде бы как есть, но он пустой - еще ничего не записано в него. после мучительных размышлений родился такой вот код проверки

    Dim s as string
    s = ""
    While s = ""
        Open "1.txt" For Input As #f
        If Err Then
            Text1.Text = "Не могу открыть файл!"
            Exit Sub
        End If
        Do While Not EOF(f)
            Line Input #f, s
            Exit Do
        Loop
        doPause (1)
        Close #f
    Wend

doPause (1) - реализована простейшая функция задержки выполнения кода Собственно может быть кто то подскажет как эту проверку проще сделать?

Решение задачи: «Как проверить наличие информации в файле»

textual
                            Листинг программы 
                        

                            Dim f As Long, p As String, s As String
p = "c:\1.txt"
While Dir(p) = "" 'ждем когда создастся файл
doPause (1) 'пауза 1 сек. в цикле чтобы не было 100% загрузки проца, можно меньше
Wend
While Len(p) = 0 'ждем когда появятся в нем данные
doPause (1)
Wend
doPause (1)' пауза на всякий случай, раз есть лаги в сети, чтоб закрылся нормально
f = FreeFile
Open p For Input As #f
Line Input #f, s 'считываем первую строку
Close #f
                        