Sono d'accordo con ciro...va bene controllare ma in fondo stiamo solo postando codice riutilizzabile anche da altri,.....infatti inserisco il link qui...tie!

codice:
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, 
ByVal lpOperation As String, ByVal lpFile As String, 
ByVal lpParameters As String, ByVal lpDirectory As String,
 ByVal nShowCmd As Long) As Long

Dim Status As String
Dim File As String
------------------------------------------------
'Comando per controllare l'aggiornamento
Private Sub Command1_Click()
'IMPORTANT: Inserire il path del sito web al posto di quello di esempio
    Status = Inet1.OpenURL("file://" & App.Path & "\status.txt")
    File = Inet2.OpenURL("file://" & App.Path & "\file.txt")
       'for example your site is http://microsoft.com
    'then type "http://microsoft.com/statusfile.txt"
    'and "http://microsoft.com/file.txt"
    
    Timer1.Enabled = True
End Sub

'controllo del file e dell'aggiornamento
Private Sub Timer1_Timer()
    If Status = "1" Then
       msgbox "Nuova versione disponibile."
       launch 'per scaricare l'aggiornamento
    Else
       msgbox "Nessun aggiornamento disponibile"
       launch2 'per visitare semplicemente il sito
    End If
End Sub

'procedure per lanciare il recupero
Sub Launch()
    ShellExecute Me.hwnd, "open", File, "", 0, 1
End Sub

Sub Launch2()
    ShellExecute Me.hwnd, "open", "http://sito.com", "", 0, 1
End Sub
Si gioca tutto sulla presenza di questi due files, status.txt e file.txt
Sul primo è segnato lo stato...se il numero al suo interno è diverso da quello dello stesso file sul sito allora c'è un aggiornamento, altrimenti non ve ne sono