i want to make this program to get update through each old versions

Imports System
Imports System.IO
Imports System.Net

Public Class Form1

    Dim File = Application.StartupPath + "\launcher"
    Dim Section3 = "AutoUpdate"
    Dim AutoUpdateFunction = "AutoUpdateFunction"
    Dim Version = "Version"
    Dim Status = "Status"
    Dim Section4 = "Version"
    Dim Ver = "ver"
    Dim WithEvents WC As New WebClient
    Private WithEvents httpclient As WebClient
    Dim imageAddress As String = String.Empty
    Dim filename As String = String.Empty
    Dim Check As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        persent.Text = ""
    End Sub
    Private Sub WC_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles httpclient.DownloadProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
    End Sub
    Private Sub dpc(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles httpclient.DownloadProgressChanged
        persent.Text = e.ProgressPercentage
    End Sub
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        If ReadIni(File, Section3, AutoUpdateFunction, "") = "on" Then
            Try
                Dim web As New WebClient()
                Update.Text = "Checking for Update!"
                Dim response = web.DownloadString("http://107.170.123.131/ver.txt")
                Dim check = (ReadIni(File, Section4, Ver, "ver"))
                If check = response Then
                    Button3.Enabled = True
                    Update.Text = "Game Updated"
                Else
                    httpclient = New WebClient
                    imageAddress = "http://www.wratho.net/patch_31.dat.zip"
                    filename = imageAddress.Substring(imageAddress.LastIndexOf("/") + 1)
                    AddHandler httpclient.DownloadFileCompleted, AddressOf Downloaded
                    Try
                        httpclient.DownloadFileAsync(New Uri(imageAddress), (filename))
                        Update.Text = "Updating!"
                    Catch ex As HttpListenerException
                        MsgBox("SH*T!!!!!!")
                    Catch ex As Exception
                        Update.Text = "No Response From Server"
                    End Try
                End If
            Catch ex As HttpListenerException
                MsgBox("Error accessing " + imageAddress + " - " + ex.Message)
            Catch ex As Exception
                MsgBox("No Response From Server")
            End Try
        Else

        End If
    End Sub
    Private Sub Downloaded()
        If System.IO.File.Exists(filename) = True Then
            Button3.Enabled = "True"
            Update.Text = "Updates are done!"
        Else
            MsgBox("Doesn't exist", 64, "Open")
        End If
    End Sub
End Class
   
Module modINI

    Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" _
    Alias "GetPrivateProfileStringW" (ByVal lpApplicationName As String, _
    ByVal lpKeyName As String, ByVal lpDefault As String, _
    ByVal lpReturnedString As String, ByVal nSize As Int32, _
    ByVal lpFileName As String) As Int32

    Public Function ReadIni(ByVal IniFileName As String, ByVal Section As String, ByVal ParamName As String, ByVal ParamDefault As String) As String
        Dim ParamVal As String = Space$(1024)
        Dim LenParamVal As Long = GetPrivateProfileString(Section, ParamName, ParamDefault, ParamVal, Len(ParamVal), IniFileName)
        ReadIni = Left$(ParamVal, LenParamVal)
    End Function
End Module

Auto Updater v1.0

[Settings]
Title=Auto Updater

[Website]
Notice=News link
Register=Register page link



[AutoUpdate]
AutoUpdateFunction=on
Status="Version link" (IMPORTANT)'i used this link <a href="http://107.170.123.131:80/ver.txt">http://107.170.123.131:80/ver.txt</a>

[Version]
Ver=1.0