EXE that creates EXE

Imports System.CodeDom.Compiler

Dim CompilePath As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim FileSave As New SaveFileDialog 'Declares a save file dialog so the user can specify where to save the compiled file.
Call CompileCode()
  With FileSave
    .InitialDirectory = Application.StartupPath 'Sets initial directory to the startup path of the application.

    .FileName = "*.exe"
    .DefaultExt = ".exe|*.exe"
  End With

  If FileSave.ShowDialog = Windows.Forms.DialogResult.OK Then
    CompilePath = FileSave.FileName
  Else : Exit Sub 'If the user hits cancel/'X', we exit the sub.
  End If
    End Sub

Sub CompileCode()
  Dim TheCode As String = TextBox1.Text 'Stores the written code in the 'TheCode' variable.
  CreateEXE(CompilePath, TheCode) 'Calls the function to Compile the code, with "CompilePath" as the location for the code to be compiled to, and "TheCode" as the code to be compiled.
    End Sub
Sub CreateEXE(ByVal SaveLocation As String, ByVal Code As String)
  On Error Resume Next 'To Avoid exceptions being thrown.

  Dim Settings As New CompilerParameters() 'To store the settings of our compiler in.
  Dim Compiler As ICodeCompiler = (New VBCodeProvider).CreateCompiler 'Declaring our compiler.

  With Settings 'Setting some Settings for the compiler.
    .GenerateExecutable = True
    .OutputAssembly = SaveLocation 'Sets save location to the place the user inputed in the FileSave.sfd
    .CompilerOptions = "/target:winexe" 'Tells the compiler to compile the code as a winexe file.
    .ReferencedAssemblies.Add("System.dll") 'Imports System
  End With

  Code = Code.Replace("[*message*]", TextBox2.Text) 'Replaces the place holder for the message box's message with the message that was entered in textbox2.text
  Compiler.CompileAssemblyFromSource(Settings, Code) 'Compiles the code with all the settings stored in the "Settings" string.
    End Sub