VB 中如何逐行读取文本框的内容？

Question

我上网搜了一些程序代码，是要用API函数的，但是调试时API函数声明却出现编译错误：“常数，固定长度字符串，数组，用户定义类型及Declare语句不允许作为对象模块的Public成员”。请问该如何解决？或者谁能提供更好的代码供参考？

Answer 1

使用函数
mid(strin,start[,length])
返回指定长度的字符串string的子串。
取出text1.text
=
"第3页"中的3，vb中一个汉字占一个字符，所以vb语句如下：
mid(text1.text,
2,
1)