一个关于用DELPHI写DLL和VB调用的参数问题,高手来挑战

本人想用DELPHI写个DLL给VB调用来实现如下功能：
dim str as string
dim ascstr as string
str=chrW(226) & chr(49) & chr(50) chr(51) & chrW(227)
ascstr=myfun(str)
//输出ascstr="E2123E3"即str的各字符串的ASCII码
//注意str中包括十进制ASCII大于127的字符如chrW(226)和chrW(227),其对应的十六进制的ASCII码分别为“E2”和"E3".
//其中myfun就是DLL里我要实现功能的函数
请各为高手来试试看最好能给出测试成功的代码.
正确后分数200！！！