Como assim ???

 Private Sub btnLerExecutar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
Handles btnLerExecutar.Click

        Dim entrada As String

        Try
            ' Lê o codigo do arquivo texto
            entrada = My.Computer.FileSystem.ReadAllText("Codigo1.txt")
        Catch ex As Exception
            MessageBox.Show(" Erro : " + ex.Message)
            Return
        End Try

        ' Cria o 'codigo' literal para passar para o compilar
        '
        ' Note que usamos  o codigo <% = entrada % > onde o código lido
        ' é inserido no fragmento de código
        Dim codigo = <code>
                       Imports System
                       Imports System.Windows.Forms

                       Public Class TempClass
                           Public Sub ResultadoTexto(ByVal txtOutput As TextBox)
                               <%= entrada %>
                           End Sub
                       End Class
                   </code>
        Try
            ' Cria o compilador VB.NET
            Dim vbProv = New VBCodeProvider()
            ' Cria os parametros apra passar para o compilador
            Dim vbParams = New CompilerParameters()
            ' Inclui as referencias aso assemblies.
            vbParams.ReferencedAssemblies.Add("mscorlib.dll")
            vbParams.ReferencedAssemblies.Add("System.dll")
            vbParams.ReferencedAssemblies.Add("System.Windows.Forms.dll")
            vbParams.GenerateExecutable = False
            ' Garante que vamos gerar um assembly em memoria e não um arquivo fisico
            vbParams.GenerateInMemory = True
            ' Compila o código e obtem do compilador os resultados (incluindo erros, etc...)
            Dim resultadoCompilacao = vbProv.CompileAssemblyFromSource(vbParams, codigo.Value)
            ' verifica os erros do compilador
            If resultadoCompilacao.Errors.Count > 0 Then
                ' exibe cada erro
                For Each er In resultadoCompilacao.Errors
                    MessageBox.Show(er.ToString())
                Next
            Else
                ' Cria uma instância da classe compilada
                Dim obj As Object = resultadoCompilacao.CompiledAssembly.CreateInstance("TempClass")
                ' Um array de objetos que representa os argumentos a serem passados para o nosso método (txtOutPut)
                Dim args() As Object = {Me.txtOutPut}
                ' Executa o método passando o nome do método e os argumentos
                Dim t As Type = obj.GetType().InvokeMember("ResultadoTexto", BindingFlags.InvokeMethod, 
Nothing, obj, args)
            End If

        Catch ex As Exception
            MessageBox.Show("Erro : " + ex.Message)
        End Try
    End Sub

Private Sub btnGerarExe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGerarExe.Click
        CompilarExecutavel("Codigo1.cs")
        MessageBox.Show("Gerado com sucesso.")
    End Sub

 Public Shared Function CompilarExecutavel(ByVal nomeFonte As String) As Boolean
        Dim arquivoFonte As FileInfo = New FileInfo(nomeFonte)
        Dim provider As CodeDomProvider = Nothing
        Dim compileOk As Boolean = False

        ' Selecione o código baseado na extensão do arquivo
        If arquivoFonte.Extension.ToUpper(CultureInfo.InvariantCulture) = ".CS" Then
            provider = CodeDomProvider.CreateProvider("CSharp")
        ElseIf arquivoFonte.Extension.ToUpper(CultureInfo.InvariantCulture) = ".VB" Then
            provider = CodeDomProvider.CreateProvider("VisualBasic")
        Else
            MessageBox.Show("Arquivo de codigo deve ter uma extensão .cs ou .vb")
        End If

        If Not provider Is Nothing Then

            ' Formata o nome do arquivo executavel
            ' Construindo o caminho do assembly de saida no diretorio atual
            ' e <source>_cs.exe ou <source>_vb.exe.

            Dim exeName As String = String.Format("{0}\{1}.exe", _
                                                System.Environment.CurrentDirectory, _
                                                 arquivoFonte.Name.Replace(".", "_"))

            Dim cp As CompilerParameters = New CompilerParameters()

            ' Gera um executavael ao inves de um class library.
            cp.GenerateExecutable = True

            ' Especifica o nome do arquivo assembly a gerar
            cp.OutputAssembly = exeName

            ' Salva o  ssembly como um arquivo fisico
            cp.GenerateInMemory = False

            ' Trata os erros e avisos
            cp.TreatWarningsAsErrors = False

            ' Invoca a compilação do arquivo fonte
            Dim cr As CompilerResults = provider.CompileAssemblyFromFile(cp, nomeFonte)

            If cr.Errors.Count > 0 Then
                ' exibe as mensagens de erro
                MessageBox.Show("Erros Construindo " + nomeFonte + " em " + cr.PathToAssembly)

                Dim ce As CompilerError
                For Each ce In cr.Errors
                    MessageBox.Show("  {0}", ce.ToString())
                Next ce
            Else
                ' Exibe a mensagem de compilação com sucesso
                MessageBox.Show("Fonte " + nomeFonte + " foi construido com sucesso em " + cr.PathToAssembly)
            End If

            ' Retorna os resultadaos da compilação
            If cr.Errors.Count > 0 Then
                compileOk = False
            Else
                compileOk = True
            End If
        End If
        Return compileOk
    End Function

using System;

namespace ConsoleTeste
{
    class Program
    {
        static void Main(string[] args)
        {
            int soma = 0;
            for (int i = 0; i == 20; i++)
            {
                soma += i;
            }
            Console.WriteLine(" Valor Soma : " + soma);
        }
    }
}