Code:
 Private Sub CheckForUpdate()
        'HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{512D18C2-805F-4EEC-8D03-D90EBDFAEBD9}
        'Try
        Dim base As String = "http://lobsterproductions.x.gg/Products/HTML%20Easy%20Edit"
        Dim startup As String = Application.StartupPath
        If (My.Computer.FileSystem.FileExists(startup + "\version.txt")) Then
            My.Computer.FileSystem.DeleteFile(startup + "\version.txt")
        End If
        My.Computer.Network.DownloadFile(base + "\version.txt", startup + "\version.txt")
        Dim newversion As Double = Convert.ToDouble(My.Computer.FileSystem.ReadAllText(startup + "\version.txt"))
        If (newversion > Application.ProductVersion) Then
            If (MsgBox("New updates available, do you wish to download them? Please make sure you have an active internet connection before proceeding.", MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes) Then
                'download new version
                If (My.Computer.FileSystem.FileExists(startup + "\files.txt")) Then
                    My.Computer.FileSystem.DeleteFile(startup + "\files.txt")
                End If
                My.Computer.Network.DownloadFile(base + "\files.txt", startup + "\files.txt")
                Dim todownload As New TextBox
                todownload.Multiline = True
                todownload.Text = My.Computer.FileSystem.ReadAllText(startup + "\files.txt")
                Dim line As String = ""
                Dim exename As String = Application.ExecutablePath.Remove(0, Application.ExecutablePath.LastIndexOf("\") + 1)
                For Each line In todownload.Lines
                    If (line = "html-setup.exe") Then
                        If (My.Computer.FileSystem.FileExists(startup + "\" + line)) Then
                            My.Computer.FileSystem.DeleteFile(startup + "\" + line)
                        End If
                        frmDownload.ShowDialog()
                        frmDownload.DownloadFile(base + line, startup + "\" + line)
                        My.Computer.Network.DownloadFile(base + line, startup + "\" + line)
                        Process.Start(startup + "\" + line)
                        Application.Exit()
                    Else
                        If (line = exename) Then
                            My.Computer.Network.DownloadFile(base + line, startup + "\" + line + ".new")
                        Else
                            If (My.Computer.FileSystem.FileExists(startup + "\" + line)) Then
                                My.Computer.FileSystem.DeleteFile(startup + "\" + line)
                            End If
                            My.Computer.Network.DownloadFile(base + line, startup + "\" + line)
                        End If
                        MsgBox("Download successful! Application is now restarting.", MsgBoxStyle.Information)
                        If (My.Computer.FileSystem.FileExists(Application.ExecutablePath + ".old")) Then 'FIX IF YOU UPDATED IT AT LEAST ONCE
                            My.Computer.FileSystem.DeleteFile(Application.ExecutablePath + ".old")
                        End If
                        My.Computer.FileSystem.RenameFile(Application.ExecutablePath, exename + ".old")
                        My.Computer.FileSystem.RenameFile(startup + "\" + exename + ".new", exename)
                        'My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{512D18C2-805F-4EEC-8D03-D90EBDFAEBD9}", "DisplayVersion", Application.ProductVersion)
                        Application.Restart()
                    End If
                Next

            Else
                MsgBox("Updates must be downloaded since this is a beta version. Please make sure you have an active internet connection.", MsgBoxStyle.Information)
            End If
        Else
            MsgBox("No new updates are available.", MsgBoxStyle.OkOnly + MsgBoxStyle.Information)
        End If
        'Catch ex As Exception
        'MsgBox(ex.Message)
        ' End Try
    End Sub
Well i get an error trying to do this- i got this code from a youtube video and on the
Code:
Dim newversion As Double = Convert.ToDouble(My.Computer.FileSystem.ReadAllText(startup + "\version.txt"))
line i get an error saying "Input string was not in a correct format."

I cant figure out why this is not working- Thanks for Help!!!!