填空题

下面程序的功能是把文件file1.txt中重复的字符去掉后(即若有多个字符相同，则只保留1个)写入文件file2.txt。请填空。
Private Sub Commana1_Click()
Dim inchar As String,temp As String,outchar As String
outchar=""
Open "file1.txt" For Input As #1
Open "file2.txt" For Oulput As（）
n=LOF(（）)
inchar=Input$(n,1)
For k=1 To n
temp=Mid(inchar,k,1)
IfInStr(outchar,temp)=（） Then
outchar=outchar & temp
End If
Next k
Ptint #2,（）
Close #2
Close #1
End Sub