PEQUENO PROBLEMA COM MESSAGE BOX !

Citação:

Imports System.Net
Public Class Form2
WithEvents webclient1 As New WebClient
WithEvents webclient2 As New WebClient
Dim versaoatual As String = [Ô]3.0.0.0[Ô]
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim versaodosite As String = webclient1.DownloadString([Ô]http://waffetshirts.comlu.com/waffetshirts/ver.php[Ô])
If versaodosite > versaoatual Then
MessageBox.Show([Ô]Nova atualização disponivel! Iniciando o download[Ô], [Ô]Aviso[Ô])
webclient2.DownloadFileAsync(New Uri([Ô]http://waffetshirts.site11.com/wff/Formul%e1rio%20de%20Pedidos%20Waffe%20T-Shirts.exe[Ô]), [Ô]C:\Users\Matheus\Desktop\Formulário de pedidos[Ô])
Else
MessageBox.Show([Ô]Não há atualizações disponiveis![Ô])
End If
End Sub

Private Sub webclient2_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles webclient2.DownloadProgressChanged
ProgressBar1.Maximum = e.TotalBytesToReceive
ProgressBar1.Value = e.BytesReceived
End Sub
End Class