Select Cases from External location.

[vasil7112]

Hello,
I'd like to select my cases from an external location.
Here is an example of what i want

My.Computer.Network.DownloadFile("https://dl.dropbox.com/u/35848813/Minecraft/MineRevolution/Servers/RANDOM.txt", Application.StartupPath & "\RANDOM.txt")
        Dim key As Integer
        key = Int(Rnd() * 5)
            Select Case key 
               My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\RANDOM.txt")
            End Select

Inside Random.txt
Case 1
                    TextBox1.Text = "" ' it shows this in textbox1
                Case 2
                    TextBox1.Text = ""

If you still didn't understand here is a further Explanation.
I want my users, when they click a button, to download a file from my Dropbox(a .txt file). Then, the file will read all of the code, and add it to the code..So for example if in the .txt it was something like

Inside Random.txt
Case 1
                    TextBox1.Text = "" 
                Case 2
                    TextBox1.Text = ""

Then in the program source it will be something like this

Dim key As Integer
        key = Int(Rnd() * 5)
            Select Case key 
Case 1
TextBox1.Text = "" ' it shows this in textbox1
                Case 2
                    TextBox1.Text = ""
            End Select

Thanks.
If there is any other way to do it please tell me