Check for program updates @ startup

Public Class Form1 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
CheckForUpdates() 
End Sub 

Public Sub CheckForUpdates() 
Dim file As String = Application.StartupPath & "/version.txt" 
Dim MyVer As String = My.Application.Info.Version.ToString 

If My.Computer.FileSystem.FileExists(file) Then 
My.Computer.FileSystem.DeleteFile(file) 
End If 

My.Computer.Network.DownloadFile("http://your.url/version.txt", file) 
Dim LastVer As String = My.Computer.FileSystem.ReadAllText(file) 

If Not MyVer = LastVer Then 
MsgBox("Update Available")
'My.Computer.Network.DownloadFile("http://your.url/program.exe", "") 
Me.Close()
Else 
MsgBox("Program is up to date")
End If 
End Sub 

End Class

1.0.0.0

using System.Reflection;

Assembly.GetAssembly(typeof(Form1)).GetName().Version.ToString();

Assembly.GetExecutingAssembly().GetName().Version.ToString()

Public Class myupdater

    Dim Web As New System.Net.WebClient
    Dim EnteredSerial As String
    Dim newVersion As String = ""
    Dim Retry As Integer


    

    Private Sub myupdater_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

            Try


                Dim myVersion As String
                myVersion = My.Computer.FileSystem.ReadAllText("C:\mypath\version.txt")
                ''

                newVersion = Web.DownloadString("http://my.url/version.txt")
                If Not newVersion.Contains(myVersion) Then
                    Label1.ForeColor = Color.Red
                    Label1.Text = "Updating."


                    If My.Computer.FileSystem.DirectoryExists("C:\mypath\") Then
                        If My.Computer.FileSystem.FileExists("C:\mypath\my_Tool.exe") Then
                            IO.File.Delete("C:\mypath\my_Tool.exe")

                            My.Computer.Network.DownloadFile("http://my.url/my_Tool.exe", "C:\mypath\my_Tool.exe")
                            'System.Diagnostics.Process.Start("C:\mypath\my_Tool.exe")
                        Else
                            My.Computer.Network.DownloadFile("http://my.url/my_Tool.exe", "C:\mypath\my_Tool.exe")
                            'System.Diagnostics.Process.Start("C:\mypath\my_Tool.exe")
                        End If

                        If My.Computer.FileSystem.FileExists("C:\mypath\version.txt") Then
                            IO.File.Delete("C:\mypath\version.txt")

                            My.Computer.Network.DownloadFile("http://my.url/version.txt", "C:\mypath\version.txt")
                            'System.Diagnostics.Process.Start("C:\mypath\my_Tool.exe")
                        Else
                            My.Computer.Network.DownloadFile("http://my.url/version.txt", "C:\mypath\version.txt")
                            'System.Diagnostics.Process.Start("C:\mypath\my_Tool.exe")
                        End If



                    Else
                        My.Computer.FileSystem.CreateDirectory("C:\mypath\")

                        My.Computer.Network.DownloadFile("http://my.url/my_Tool.exe", "C:\mypath\my_Tool.exe")
                        My.Computer.Network.DownloadFile("http://my.url/version.txt", "C:\mypath\version.txt")

                        'System.Diagnostics.Process.Start("C:\mypath\my_Tool.exe")
                    End If


                    System.Diagnostics.Process.Start("C:\mypath\my_Tool.exe")
                    Me.Close()
                Else
                    System.Diagnostics.Process.Start("C:\mypath\my_Tool.exe")
                    'newVersion.Show()
                    Me.Close()
                End If
            Catch Ex As Exception
                MsgBox("Ein Fehler ist aufgetreten:" & vbCrLf & Ex.Message)

            End Try
    End Sub
End Class

Dim Web As New System.Net.WebClient
    Dim EnteredSerial As String
    Dim newVersion As String = ""
    Dim Retry As Integer

Try

                Dim myVersion As String
                myVersion = My.Computer.FileSystem.ReadAllText("C:\mypath\version.txt")
                ''

                newVersion = Web.DownloadString("http://my.url/version.txt")
                If Not newVersion.Contains(myVersion) Then
                                msgBox("A newer Version is available, the Programm will close now.")
                                System.Diagnostics.Process.Start("C:\mypath\Updater.exe")
                                End
                End if
End Try