vb读取txt文件中的内容，输出指定文字后面的内容

Question

a=text1.text
label1.caption=mid（a，val（a），val（a））
把a从1.txt文件中找出来，然后输出a后面的a长度的a个字，
注：a是字母，a后面的是汉字，如：an爱你
val()是计算长度的，一个汉字一个缩写拼音，代码没错。如果没看懂，请离开。
例如：
txt内容是“wan我爱你”
text1.text=“wan”
那就label1输出“我爱你”
难道这个构思有错嘛，你可以在vb中试试。

Answer 1

如果a中不含数字 ，VAL（a）是0，Label1.caption=""

dim a1 as string,a2 as integer
a1=text1.text
label1.caption=mid（a1，a2，a2）

Answer 2

mid（a，val（a），val（a））这句话是有问题的，无法做出这道题的，

mid函数后面两个值意思是在字符串a中第val（a）个位置往后找VAl（a）个字符，你认为能找到吗，，，

所以你要看一下有没写错，

Answer 3

mid函数后2个参数设置错误

你问题要求的很模糊好不好！
还是把原text文件发上来把