如何让文本框中的内容不重复显示

Question

请教各位高手
 如何使文本框中的内容不重复显示
 例如点击一个按钮使文本框中显示"爱我中国"四个字
当再次点击这个按钮时,如果文本框为空时,显示"爱我中国"四个字
如果文本框中的内容为"爱我中国"时,则文本框中只显示一行"爱我中国",而不是重复显示一行"爱我中国"请高手指点

Answer 1

Private Sub Text1_Click
if len(text1.text)=0 then
  text1.text="爱我中国"
end if
End Sub

Answer 2

Private Sub Text1_Click
if instr(1,text1.text,"爱我中国") then
  text1.text=text1.text & vbcrlf & "爱我中国"
end if
End Sub