Auto Updater for your client! [VB]

Imports System.Net
Imports System.Text
Imports System.IO


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       'Written by iolaka
        Dim location As String = Environ("AppData")
        Dim second As String = location & "\.minecraft\bin\"
        Dim web As New WebClient
        Dim iolaka= web.DownloadString("*******link/updater/version.dat")

        If iolaka > My.Settings.current Then
            My.Settings.current = iolaka
            Kill(second & "minecraft.jar")
            MsgBox("Update found... Downloading new version... Please wait...", MsgBoxStyle.Information, "Update")
            My.Computer.Network.DownloadFile("*******link/updater/minecraft.jar", second & "minecraft.jar")
            MsgBox("yourclient updated!", MsgBoxStyle.Information, "Update")
        Else
            MsgBox("There are no new updates. You have the latest version of yourclient.", MsgBoxStyle.Critical, "Update")
        End If
    End Sub

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

    End Sub
End Class