你说的有点像外*挂中间的脚本，可以让使用者自己编写一段代码，程序可以执行。
但是编译成exe就不现实了，只要能执行脚本不就行了吗？
VB语言可以实现这一功能，VB利用Microsoft Script Control对象可以动态执行（即无需事先编译成EXE）VBS指令，代码如下：
窗体放一个多行文本框和一个按钮。
PrivateSubCommand1_Click()
DimScriptControlAsObject,Psw$
SetScriptControl=CreateObject("MSScriptControl.ScriptControl")
ScriptControl.Language="VBScript"
ScriptControl.Timeout=-1
ScriptControl.AddCodeText1.Text
Psw=ScriptControl.Run("encodePwd")
MsgBoxPsw
EndSub
PrivateSubForm_Load()
Text1.Text="FunctionencodePwd()"&vbCrLf&_
"encodePwd=""这是返回字符串"""&vbCrLf&_
"EndFunction"
EndSub