Мой код не работает в XP - VB

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

Подскажите пожалуйста почему слудущий код в xp не пашет:

File1 = FreeFile
If Dir(App.Path + '  ' + 'config.cfg') = 'config.cfg' Then GoTo ok Else MsgBox ('Требуется указать использумую СТК'): Form1.Hide: Form3.Show: GoTo nou
ok:
Open App.Path + ' ' + 'config.cfg' For Input As #File1
Line Input #File1, Costatok
Input #File1, Cardtype
 
Close #File1

по наблюдениям он как-будто считает что условие всегда выполнено

Решение задачи: «Мой код не работает в XP»

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

                            Private Declare Function PathFileExists Lib 'shlwapi.dll' Alias 'PathFileExistsA' _
                       (ByVal pszPath As String) As Long
Dim appPath As String
appPath = App.Path
If Right$(appPath, 1) <> ' ' Then appPath = appPath + ' '
If CBool(PathFileExists(appPath + 'config.cfg')) Then ' .... и так далее...
                        