Считывание данных из файла на сервере

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        My.Computer.Network.DownloadFile("http://site/version.ini", Application.StartupPath & "\downloads\version.ini")
        My.Computer.Network.DownloadFile("http://site/url.ini", Application.StartupPath & "\downloads\url.ini")
        Dim PCVersion() As String = IO.File.ReadAllLines(Application.StartupPath & "\version.ini", System.Text.Encoding.Default)
        Dim NetVersion() As String = IO.File.ReadAllLines(Application.StartupPath & "\downloads\version.ini")
        Dim Down_Url() As String = IO.File.ReadAllLines(Application.StartupPath & "\downloads\url.ini")
        Dim DownLoad As List(Of String) = New List(Of String) 'Тут будут все ссылки на файлы версии которых не совпали.
        For i = 0 To NetVersion.Length - 1 Step 1
            If i > UBound(PCVersion) Then
                DownLoad.Add(Down_Url(i))
            ElseIf PCVersion(i) <> NetVersion(i) Then
                DownLoad.Add(Down_Url(i))
            End If
        Next
        For i = 0 To DownLoad.Count - 1 Step 1
            TextBox1.Text = TextBox1.Text & vbCrLf & DownLoad(i)
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        My.Computer.Network.DownloadFile("http://site/version.ini", Application.StartupPath & "\downloads\version.ini")
        My.Computer.Network.DownloadFile("http://site/url.ini", Application.StartupPath & "\downloads\url.ini")
        Dim PCVersion() As String = IO.File.ReadAllLines(Application.StartupPath & "\version.ini", System.Text.Encoding.Default)
        Dim NetVersion() As String = IO.File.ReadAllLines(Application.StartupPath & "\downloads\version.ini")
        Dim Down_Url() As String = IO.File.ReadAllLines(Application.StartupPath & "\downloads\url.ini")
        For i = 0 To NetVersion.Length - 1 Step 1
            If UBound(NetVersion) = UBound(PCVersion) Then
                MsgBox("У вас последняя версия.")
                Exit For
            Else
                If i > UBound(PCVersion) Then
                    MsgBox("Скачать обновление? " & Down_Url(i))
                    Exit For 'И выходим из цикла.
                End If
            End If
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim NetVersion() As String = IO.File.ReadAllLines("D:\2.txt")
        Dim PCVersion() As String = IO.File.ReadAllLines("D:\1.txt")
        Dim Down_Url() As String = IO.File.ReadAllLines("D:\3.txt")
        If UBound(NetVersion) > UBound(PCVersion) Then
            MsgBox("Скачать: " & Down_Url(UBound(PCVersion) + 1))
        ElseIf UBound(NetVersion) = UBound(PCVersion) Then
            MsgBox("У вас последняя версия.")
        ElseIf UBound(NetVersion) < UBound(PCVersion) Then
            MsgBox("Ошибка при обновлении.")
        End If
    End Sub