怎么将剩余的字符显示在文本框3 (如图)

如何将剩余的字符显示在文本框3 (如图)
将剩余的字符显示在文本框3  
如图  

http://hiphotos.baidu.com/%CC%EC%B7%E7%BA%A3%CB%AE/pic/item/625b1db3d6a048a5d9335af5.jpg

------解决方案--------------------

text3中显示出在text1中不在text2中字符

Dim SStart As Integer
Dim SEnd As Integer
Dim length As Integer
Dim tempStr As String
Text3.Text = " "
SStart = 1
Do While SStart <= Len(Text2.Text)
SEnd = InStr(SStart, Text1.Text, ", ")
If SEnd = 0 Then Exit Do
length = SEnd - SStart + 1
tempStr = Mid(Text1.Text, SStart, length)
SStart = SEnd + 1
Debug.Print InStr(1, Text2.Text, tempStr)
If InStr(1, Text2.Text, tempStr) = 0 Then
Text3.Text = Text3.Text & tempStr
End If
Loop


运行结果：
T,e,x,t1,

T,e,x,t2,

t1,


给分！！