使用VB6中的字符串函数Right(x,n)即可。字符串函数Right(x,n):从字符串右边起取n个字符。针对你的问题,可写如下代码:text3.Text = Right(text1.Text, Len(text1.Text) - 6 + 1)