File not Find Problem

[gavio]

Private Sub Form_Load()
    Dim f As Integer
    Dim sFileName As String

    f = FreeFile
    sFileName = App.Path & "\xx.txt"

    If FileExist(sFileName) Then
        Open sFileName For Input As #f
            '...
        Close #f
    End If

    'continues here...
End Sub

Public Function FileExist(ByVal sFileName As String) As Boolean
    FileExist = (Len(Dir$(sFileName, vbHidden + vbSystem)) > 0)
End Function