Dim Ruta, DataArchivo As String
Ruta = App.Path & "\" & App.Exename & ".exe"
Open Ruta For Binary As #1
DataArchivo = Space(LOF(1))
Get #1 , , DataArchivo 
Close #1

Public Class Form1
    Const Delimiter As String = "/***\"
    Dim Stub, msg As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Dialog As New SaveFileDialog
        Dialog.Filter = "Exe | Windows Executable Files"
        Dialog.ShowDialog()
        FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
        Stub = Space(LOF(1))
        FileGet(1, Stub)
        FileClose(1)
        FileOpen(1, Dialog.FileName, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
        FilePut(1, Stub & Delimiter & TextBox1.Text & Delimiter & "Webos")
        FileClose(1)
        MsgBox("Server was made with success", MsgBoxStyle.Information, "Underc0de Downloader")
    End Sub
End Class

Public Class Form1
    Const Delimiter As String = "/***\"
    Dim Stub As String
    Dim TITULO As String
    Dim wea As String
    Dim Splitter() As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        On Error Resume Next
        FileOpen(Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
        Stub = Space(LOF(1))
        FileGet(1, Stub)
        FileClose(1)
        Splitter = Split(Stub, Delimiter)
        TITULO = Splitter(1)
        wea = Splitter(2)
        MsgBox(TITULO, , wea)
        End
    End Sub
End Class