Code werkt in debug maar als ik hem installeer niet meer

[infur]

ik heb een code die werkt als ik hem debug, maar als ik hem installeer en open dan niet . Als iemand weet wat er mis is zeg het dan. bij voorbaat dank.

    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        If My.Computer.Network.IsAvailable = False Then
            MsgBox("Kon geen verbinding maken met internet.", MsgBoxStyle.Critical, "Geen internetverbinding")
        Else
            My.Computer.Network.DownloadFile("http://www.domein.com/applicatie.txt", My.Computer.FileSystem.CurrentDirectory + "\online.ver", "", "", False, 100, True)
            Dim read As New StreamReader(My.Computer.FileSystem.CurrentDirectory + "\online.ver", False)
            Dim read2 As New StreamReader(My.Computer.FileSystem.CurrentDirectory + "\comversion.ver", False)
            Dim tmp As String
            Dim tmp2 As String
            tmp = read.ReadLine
            read.Close()
            tmp2 = read2.ReadLine
            read2.Close()
            If tmp > tmp2 Then
                My.Computer.Network.DownloadFile("http://www.domein.com/test.exe", My.Computer.FileSystem.CurrentDirectory + "\test.exe", "", "", False, 100, True)
                System.Diagnostics.Process.Start(My.Computer.FileSystem.CurrentDirectory + "\test.exe")
            Else
                MsgBox("Niet gedownload!")
            End If
        End If
    End Sub