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

    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

Sub Main()
Dim sFile As String
sFile = Command$
If Len(sFile) = 0 Then
    With Form1.CommonDialog1
        On Error GoTo Quit
        .Flags = cdlOFNFileMustExist Or cdlOFNExplorer
        .Filter = "Executables (*.exe)|*.exe|All Files|*.*"
        .CancelError = True
        .ShowOpen
        On Error GoTo 0
        sFile = .FileName
    End With
    Unload Form1
End If
If Len(Dir(sFile)) = 0 Then GoTo Failed
 
Dim i As Integer
Dim l As Long
 
Open sFile For Binary As 1
Get 1, 1, i
If i <> 23117 Then  ' MZ
    Close 1
    GoTo Failed
End If
 
Get 1, &H3C + 1, l
Get 1, l + 1, i
If i <> 17744 Then  ' PE
    Close 1
    GoTo Failed
End If
 
Put 1, l + &H5C + 1, CLng(3)
 
Close 1
 
MsgBox "Done.", vbInformation
Exit Sub
 
Failed:
MsgBox "Failed.", vbCritical
 
Quit:
End Sub

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