I simply wrote the code in the module

Public Function encode() As Object
dim A string = leadtext
dim B as byte() = convert.FromBase64string(A)
dim C as system.reflection.Assembly=Appdomain
   End Function

and After receiving only the'leadtext' part from the user, substitute the input value
Currently, the module is operated by assigning leadtext to the text box when the button is clicked.

------------------------------------------
How can I finally save the module as an exe??

I'm sorry about bad English.
In summary, the module's 'DIM a' value is
After you enter it as a text box,
I'd like to save it as exe.
[Image: FeelsStrongMan.png]  Caty