dim cadena as string = "toni"

my.resources.source.replace("%1%", cadena)

dim toni as string = %1% 

 Dim cadena1 As String = my.resources.source1


        cadena1 = My.Resources.source1.Replace("cadena", cadena.ToString)

CompileCode(New Microsoft.VisualBasic.VBCodeProvider(), _VBSourceCode, Nothing, SaveFileDialog1.FileName, Nothing, Nothing, _Errors)

 Public Function CompileCode(ByVal _CodeProvider As System.CodeDom.Compiler.CodeDomProvider, ByVal _SourceCode As String, ByVal _SourceFile As String, ByVal _ExeFile As String, ByVal _AssemblyName As String, ByVal _ResourceFiles() As String, ByRef _Errors As String) As Boolean
        ' set interface for compilation
        Dim _CodeCompiler As System.CodeDom.Compiler.ICodeCompiler = _CodeProvider.CreateCompiler()

        ' Define parameters to invoke a compiler
        Dim _CompilerParameters As New System.CodeDom.Compiler.CompilerParameters()

        If _ExeFile IsNot Nothing Then
            ' Set the assembly file name to generate.
            _CompilerParameters.OutputAssembly = _ExeFile

            ' Generate an executable instead of a class library.
            _CompilerParameters.GenerateExecutable = True
            _CompilerParameters.GenerateInMemory = False
        ElseIf _AssemblyName IsNot Nothing Then
            ' Set the assembly file name to generate.
            _CompilerParameters.OutputAssembly = _AssemblyName

            ' Generate an executable instead of a class library.
            _CompilerParameters.GenerateExecutable = False
            _CompilerParameters.GenerateInMemory = False
        Else
            ' Generate an executable instead of a class library.
            _CompilerParameters.GenerateExecutable = False
            _CompilerParameters.GenerateInMemory = True
        End If


        ' Generate debug information.
        '_CompilerParameters.IncludeDebugInformation = true;

        ' Set the level at which the compiler
        ' should start displaying warnings.
        _CompilerParameters.WarningLevel = 3
        ' Set whether to treat all warnings as errors.
        _CompilerParameters.TreatWarningsAsErrors = False

        ' Set compiler argument to optimize output.
        _CompilerParameters.CompilerOptions = "/optimize"
        ' Set a temporary files collection.
        ' The TempFileCollection stores the temporary files
        ' generated during a build in the current directory,
        ' and does not delete them after compilation.
        _CompilerParameters.TempFiles = New System.CodeDom.Compiler.TempFileCollection(".", True)

        If _ResourceFiles IsNot Nothing AndAlso _ResourceFiles.Length > 0 Then
            For Each _ResourceFile As String In _ResourceFiles
                ' Set the embedded resource file of the assembly.
                _CompilerParameters.EmbeddedResources.Add(_ResourceFile)
            Next _ResourceFile
        End If


        Try
            ' Invoke compilation
            Dim _CompilerResults As System.CodeDom.Compiler.CompilerResults = Nothing

            If _SourceFile IsNot Nothing AndAlso System.IO.File.Exists(_SourceFile) Then
                ' soruce code in external file
                _CompilerResults = _CodeCompiler.CompileAssemblyFromFile(_CompilerParameters, _SourceFile)
            Else
                ' source code pass as a string
                _CompilerResults = _CodeCompiler.CompileAssemblyFromSource(_CompilerParameters, _SourceCode)
            End If

            If _CompilerResults.Errors.Count > 0 Then
                ' Return compilation errors
                _Errors = ""
                : For Each CompErr As System.CodeDom.Compiler.CompilerError In _CompilerResults.Errors
                    _Errors &= "Line number " & CompErr.Line & ", Error Number: " & CompErr.ErrorNumber & ", '" & CompErr.ErrorText & ";" & Constants.vbCrLf & Constants.vbCrLf
                Next CompErr

                ' Return the results of compilation - Failed
                Return False
            Else
                ' no compile errors
                _Errors = Nothing
            End If
        Catch _Exception As Exception
            ' Error occurred when trying to compile the code
            _Errors = _Exception.Message
            Return False
        End Try

        ' Return the results of compilation - Success
        Return True
    End Function

dim cadena as string = "exe en base64string"

my.resources.source.replace("%1%", formato(cadena))

function formato
splitstring tal cual pin pan.