激发COMMAND2

Private Sub Text2_Change()
Dim t_This As Integer '保存当前查找的位置
le = Len(Text5.Text)
le2 = Len(Text3.Text)
t_This = 1
Do While Not t_This = 0
t_This = InStr(t_This + le, Text2.Text, Text5.Text)
If t_This <> 0 Then
If InStr(Text3, Mid(Text2, t_This + le, InStr(t_This, Text2, vbCrLf) - t_This - le)) <= 0 Then
Text3 = Text3 & Mid(Text2, t_This + le, InStr(t_This, Text2, vbCrLf) - t_This - le) & "@yahoo.com.tw" & vbCrLf
End If
ElseIf le2 > 1000 Then
Open App.Path & "\需要的用户.txt" For Append As #1 '打开文件
Print #1, Text3 '写入文本
Close #1 '关闭文件
If le2 > 1000 Then
Text3 = Clear
End If
End If
Loop
End Sub