窗體上有三個文本框。在第壹個文本框裏輸入需要執行的代碼，在第二個文本框裏輸入需要返回的代碼，然後點擊按鈕1
這時候就執行妳列出的程序：首先在str字符串中生成壹段“函數”的代碼如下：
Function ReturnThis（）
……'這裏就是Text1的內容
ReturnThis = ……'這裏就是 Text2的內容
End Function
再下面壹段就是執行這段函數代碼了（具體地說很復雜，但我還是先說說）
這樣的代碼經常會出錯，所以先設置錯誤收集（ On Error GoTo Err_Exit
），這裏妳抄寫錯誤，在最後多了個冒號。
然後創建壹個對象，設置這個對性的語言屬性為vb腳本語言，設置對象的代碼，執行這個對象並將結果寫入text3，釋放這個對象。
再下面，就是上面出錯的時候的處理了。實質就是在立即窗口實處錯誤代碼（Sc.Error.Number）和錯誤提示（Sc.Error.Description）、錯誤位置（Sc.Error.Line ）
另說壹下妳研究的比較深了，已經不是新手。