Visual barsik :) 6.0

[Trojan]

Private Sub Command1_Click()
Dim scan As String
Dim h As String
Dim s As String
scan = Text2.Text
If scan = "" Then
    MsgBox ("Hey dude , enter stuff")
Else
    h = Dir("c:\Project CSO\logs\*.log")
While h <> ""
    Open h For Input As #1
    While EOF(1) = False
        Line Input #1, s
        If InStr(s, scan) Then
            Text1.Text = Text1.Text & s
        End If
    Wend
    Close #1
h = Dir()
Wend
End If
End Sub

///
почему оно пишет Wend without while , на первом Wend'e
да блин. давно я не програмил на нем :(

[Trogfor]

иф не закрыт

 If InStr(s, scan) Then 
            Text1.Text = Text1.Text & s

[Trojan]

сенкс . все заработало :)