VB 2010 : Mise à jour de mon application

    Private Sub Workbook_Open()
        Dim source As New System.Text.StringBuilder
        Dim html As String = ""
        Dim maximum As Integer
        Dim request As HttpWebRequest = WebRequest.Create("http://forum-racacax.ga/allfrtv/allfrtvversion.txt")
        Dim response As WebResponse = request.GetResponse()
        Dim reader As StreamReader = New StreamReader(response.GetResponseStream())
        Do
            source.Append(reader.ReadLine() + vbCrLf)
        Loop Until reader.ReadLine() Is Nothing
        maximum = source.Length - 2
        For i As Integer = 0 To maximum
            html = html + source(i)
        Next
        reader.Close()
        response.Close()
        If html = "0.1 Alpha v2" Then
        Else
            If MsgBox("Une nouvelle version est disponible, voulez-vous la télécharger ?", vbYesNo + vbInformation, "Mise à jour") = vbYes Then
                Process.Start("http://forum-racacax.ga/viewforum.php?f=69")
            Else
            End If
        End If
    End Sub