调用模块里的函数或过程求教，谢谢！！！

Question

如模块理有一过程：
Function Encrypt(EnCptText As String, Key As String, TxtBox As String)
Dim Keylen As Integer, CharCode As Integer, TotalChar As Long, k As Long
For k = 1 To Len(Key)
Keylen = Keylen + Asc(Mid(Key, k, 1))
Next k
For x = 1 To Len(EnCptText)
CharCode = (Asc(Mid(EnCptText, x, 1)) + Keylen)
TotalChar = TotalChar + CharCode
TxtBox = TxtBox & "." & CharCode 'Convert String to code
Next x
TxtBox = TxtBox & ".#" & TotalChar  'Add a seperator and a check number to the end of string.End Function
我知道在窗体里用：
Encrypt (Text1 & A & Text2), "MYwSYmvbAHzZ123BxCxCC", PASSSHK 调用，
我想求教的是：如有一文本框（TEXT1）,TEXT1.TXT="Encrypt (Text1 & A & Text2), "MYwSYmvbAHzZ123BxCxCC", PASSSHK"
有何方法直接得到TEXT1的内容就能执行过程（Encrypt (Text1 & A & Text2), "MYwSYmvbAHzZ123BxCxCC", PASSSHK ）
谢谢！！！

Answer 1

Function Encrypt(EnCptText As String, Key As String, TxtBox As String) 
你这个函数是传进来3个值  都是string型的  没有返回值 
看不太懂需求~~~

Answer 2

Microsoft Script Control 1.0 控件，应该可以完成你说的这个工作。

Answer 3

写文件
Open "student.txt" For Output As #filenum
Write #filenum, "张三", "初一年级", 14
Write #filenum, "李四", "职业高中", 18

Answer 4

谢谢！！！
主要的是调用问题：
如
a.txt里有AAA在程序里有AAA过程我想打开A.TXT，得到AAA后，就能调用AAA过程，还请高手相助，谢谢！！！

Answer 5

vb有个方法 CallByName 不知对你有没有用

Answer 6

http://topic.csdn.net/u/20090727/13/385B59B5-9609-41B7-8DB9-2628A7EE376E.html

Answer 7

一样的问题
http://topic.csdn.net/u/20091015/07/4914fbf8-f060-49aa-b6b1-828b917ebe42.html?81486