Problem with errorhandling

[ThaVolt]

Hi i want my program to open a logfile at start wich is no problem but if the file doesn't exist it will be created on close so the error isn't bad but i want to make my status bar say: "Log file not found, automatically created" but even when there is a log file the status bar still says: "Log file not found, automatically created" do i miss something here?

Private Sub Form_Load()
StatusBar1.SimpleText = "Ready"
On Error GoTo Errorhandler
Open App.Path & "\logfile.Log" For Input As #1
Do Until EOF(1)
Line Input #1, variablename
List1.AddItem variablename
Loop
Close #1
Winsock1.Listen
Errorhandler:
StatusBar1.SimpleText = "Log file not found, automatically created"
End Sub

Hope u guys can help me out

Greetings

 

[vb5prgrmr]

if dir(App.Path & "\logfile.Log&quot = "" then

'file not found

else

'file found

endif

 

[ThaVolt]

Thank you very much

 

[CCLINT]

um, right before
Errorhandler:

place:
Exit Sub


Winsock1.Listen

Exit Sub

Errorhandler:
StatusBar1.SimpleText = "Log file not found, automatically created"
End Sub
[/b][/i][/u]*******************************************************
_{General remarks:
If this post contains any suggestions for the use or distribution of code, components or files of any sort, it is still your responsibility to assure that you have the proper license and distribution rights to do so!}