Updater code problem

Hi everyone!

I can't understand what's wrong with this code..

Code:

---

Private Sub Form_Load()
Dim latest_version As String
Dim this_version As String
latest_version = Inet1.OpenURL("http://manu6.manufrog.com/~intethin/eva/version.txt")
this_version = "001"
MsgBox latest_version
MsgBox this_version
If latest_version <> this_version Then
    MsgBox "New update is available!"
End If
End Sub

---

My problem is that the MsgBox with "New update is available!" never show up...why!?! :confused:

Try:

Code:

---

Dim latest_version As String
Dim this_version As String
latest_version = Inet1.OpenURL("http://manu6.manufrog.com/~intethin/eva/version.txt")
this_version = app.major & "." & app.minor & "." & app.revision

if not latest_version <= this_version then msgbox "Update Available"

---

Also whats inside Version.txt? Imean how is it formatted ? is it: #.#.# ?

Post the value of latest_version and this_version

I switched my code to yours, some1uk03, since it's smaller.
But it still didn't work..it said that an update always was available, then I realized that the problem was in the declaration.
It should be Double variables, not String.

Now it works! Thx!