[Help]Auto Update

Private Sub WebClient_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles WebClient.DownloadFileCompleted
        MsgBox("Checking complete")
        readit.Text = My.Computer.FileSystem.ReadAllText("Version.txt")
        If readit.Text.Length > 7 Then
            Downloadfile("http://www.MyServer.com\Version.txt")
            Exit Sub
        End If
        Dim updatedVersion As Double = Val(readit.Text)
        Dim currentVersion As Double = Val(Application.ProductVersion)

        UVer.Text = readit.Text

        If updatedversion > currentversion Then
            MsgBox("New Update Avalible!")
            System.Diagnostics.Process.Start("http://www.UpdateSite.com")
        Else
            MsgBox("No Updates Avalible")
        End If
    End Sub

If updatedversion > currentversion Then
            MsgBox("New Update Avalible!")
            System.Diagnostics.Process.Start("http://www.UpdateSite.com")
        Else
            MsgBox("No Updates Avalible")
        End If