Dim Tek As String, Ver As String    
      ' В двох переменных будут храниться информация о версия. ТЕК - текущая версия, VER - Новая

Private Sub Form_Load()
f = FreeFile
Open App.Path & "\version.txt" For Input As #f          

     ' открой txt файл в папке программы, где записана текущая версия проги, типа "v 1.2"

Input #f, Tek                     

      ' Это все сохраняется в переменную TEk

Close #f

Ver = Inet1.OpenURL("http:\\bestet.kiev.ua", icString)          
    ' В другой переменной должна быть версия новой программы, которая написана на серваке! Вместо мого Bestet пропиши свой путь к txt

If Ver <> Tek Then             

         ' если версии разные, значит выскакивает сообщение. Лучше сделай, что бы форма выскакивала, будет красивее.

MsgBox "Вышло новое обновление программы!"
End If

End Sub