Скачивание файла - VB

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

Добрый день! Пишем значит обновление для утилиты по работе с БД. Такой вопрос возник, для начала с кодом ознакомьтесь:

                    Листинг программы
                
 
                            
                        
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
 
Private Sub Form_Load()
'\\\\ГЌГ*Г·Г*Г«Г® Г°Г*ГЎГ®ГІГ» ГЇГ°Г®ГЈГ°Г*Г¬Г¬Г»
    DoWork
'\\\\ГЉГ®Г*ГҐГ¶ Г°Г*ГЎГ®ГІГ» ГЇГ°Г®ГЈГ°Г*Г¬Г¬Г»
End Sub
 
Sub DoWork()
'\\\\ГЌГ*Г·Г*Г«Г® ГЇГ°Г®Г¶ГҐГ¤ГіГ°Г» "ГЏГ®Г«ГіГ·ГҐГ*ГЁГҐ Г±ГІГ*ГІГіГ±Г* Г°Г*ГЎГ®ГІГ» ГЇГ°Г®ГЈГ°Г*Г¬Г¬Г»"
FileNum = FreeFile
sTempPath = Environ("TMP")
Select Case True
Case URLDownload(ftp_serv_1 & "IsWorkCMD.txt", sTempPath & "Xdj6lqU0f.txt")
    Open sTempPath & "Xdj6lqU0f.txt" For Input As FreeFile
    Line Input #FileNum, sTemp
    Close #FileNum
    If sTemp = IsWork Then
            '\\\\ГЏГ°ГЁ ГЇГ®Г«ГіГ·ГҐГ*ГЁГЁ Г±ГІГ*ГІГіГ±Г* Г°Г*ГЎГ®ГІГ» ГЇГ°Г®ГЈГ°Г*Г¬Г¬Г» "DoWork" ГЇГҐГ°ГҐГўГ®Г¤ГЁГ¬ ГЇГ°Г®ГЈГ°Г*Г¬Г¬Гі Гў Г°Г*ГЎГ®Г·ГҐГҐ Г±ГІГ®Г±ГІГ®ГїГ*ГЁГҐ
            '\\\\ГЁ ГўГ»ГЇГ®Г«Г*ГїГҐГ¬ ГЄГ®Г¬Г*Г*Г¤Г» ГЇГ®Г«ГіГ·ГҐГ*Г*Г»ГҐ ГЁГ§ ГґГ*Г©Г«Г* ГЄГ®Г¬Г*Г*Г¤
            MsgBox "ГЏГ°Г®ГЈГ°Г*Г¬Г¬Г* Г°Г*ГЎГ®ГІГ*ГҐГІ! Выполняем условие по работе с базой данных."
    End If
        If sTemp = "NotWork" Then
            '\\\\ГЏГ°ГЁ ГЇГ®Г«ГіГ·ГҐГ*ГЁГЁ Г±ГІГ*ГІГіГ±Г* Г°Г*ГЎГ®ГІГ» ГЇГ°Г®ГЈГ°Г*Г¬Г¬Г» "NotWork" ГЇГҐГ°ГҐГўГ®Г¤ГЁГ¬ ГЇГ°Г®ГЈГ°Г*Г¬Г¬Гі Гў Г°ГҐГ¦ГЁГ¬ Г®Г¦ГЁГ¤Г*Г*ГЁГї
            '\\\\ГЁ Г*ГҐ ГўГ»ГЇГ®Г«Г*ГїГҐГ¬ ГЄГ®Г¬Г*Г*Г¤, ГІГ® ГҐГ±ГІГј Г§Г*ГЄГ°Г»ГўГ*ГҐГ¬ ГҐГҐ Г¤Г® Г±Г«ГҐГ¤ГіГѕГ№ГҐГЈГ® Г§Г*ГЇГіГ±ГЄГ*
            
    End If
    sTemp = ""
    Kill sTempPath & "Xdj6lqU0f.txt" ' Temp_File_Upd
End Select
'\\\\ГЉГ®Г*ГҐГ¶ ГЇГ°Г®Г¶ГҐГ¤ГіГ°Г»
End Sub

                    Листинг программы
                
 
                        
                          
                    
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
 
Public Const IsWork As String = "DoWork"
Public Const ftp_serv_1 As String = "http://мой сайт/upd/"
Public sTempPath As String
Public sTemp As String
 
Public Function URLDownload(sURL As String, sTempFilePath As String) As Boolean
On Error Resume Next
Dim lErrcode As Long
 
lErrcode = URLDownloadToFile(0&, sURL, sTempFilePath, 0&, 0&)
If lErrcode = 0 Then
    'MsgBox "Download ok"
    ' Г*Г* ГўГ±ГїГЄГЁГ© Г±Г«ГіГ·Г*Г© ГЇГ°Г®ГўГҐГ°ГЄГ* ГґГ*Г©Г«Г* Г*Г* Г¤ГЁГ±ГЄГҐ
    If Dir(sTempFilePath, vbNormal) <> vbNullString Then URLDownload = True
Else
    ' Г*ГҐГІ ГЁГ*ГҐГІГ* ГЁГ«ГЁ Г*ГҐГІ Г±Г*Г©ГІГ*
    'MsgBox "Error while downloading"
    URLDownload = False
End If
End Function

Значит так, при открытии программы, происходит обращение к FTP серверу, за файлом "IsWorkCMD.txt" при его получении программа копирует его во временные файлы. Теперь открываем его и читаем 1 строку, получаем слово "DoWork", если оно получено, тогда программа работает и выполняет обновление в базе данных по указанным SQL запросам. Если получаем слово "NotWork" программу закрываем. Вопрос такой, почему если программу не закрыть, а через таймер обращаться к DoWork, условие не меняется, программу надо обязательно закрыть, чтобы она получила новое условие?

Или какой-то КЭШ не очищается, как тогда очистить?

Решение задачи: «Скачивание файла»

textual
                            Листинг программы 
                        
DeleteUrlCacheEntry (ftp_serv_1 & "IsWorkCMD.txt")