填空题：设窗体上有Text1文本框和Command命令按钮，并有以下程序：PrivateSubCommand1_Click()I

设窗体上有Text1文本框和Command命令按钮，并有以下程序：
PrivateSubCommand1_Click()
Iemp$=“”
Fork=1ToLen(Text1)
Ch$=Mid(Text1,k,1)
IfNotfound(temp,ch)Then
Temp=temp&（　13　）
Endif
Nextk
Text1=（　14　）
EndSub
PrivateFunctionfound(strAsString,chAsString)AsBoolean
ForK=1ToLen(str)
Ifch=Mid(Str,k,1)Then
Found=（　15　）
ExitFunction
EndIf
Nextk
Found=False
EndFunction
运行时，在文本框中输入若干英文字母，然后单击命令按钮，则可以删去文本框中所有重复的字母。例如，若文本框中原有字符串为“abcddbbc”，则单击命令按钮后文本框中字符串为“abcd“。其中函数found的功能是判断字符串str中是否有字符ch，若有，函数返回True，否则返回False。请填空。