一text输入框 一label显示框，输入框的内容如果文档里没有，则在前面加入日期时间和三位序号作档案号写入文档，每行一条记录，并显示以加入 ，如果文档里有，显示档案号。代码和注释，谢谢大家了。

Private Sub AddData(Data As String,FileName As String)
Dim Tmp_String As String   '声明一个变量，保存文档的内容，用于判断是否包含这条记录
Open FileName For Binary As #1  '使用二禁止方式打开文件
'为什么使用Binary而不使用Input呢，因为我遇到过当一行的内容长度太长的时候就会出现超出文件尾的错误，使用Binary可以避免。
     Tmp_String=StrConv(InputB(LOF(1), #1), vbUnicode)   '读入文件
Close #1
If Instr(1,Tmp_String,Data,vbTextCompare) = 0 Then '不存在该记录
     Open FileName For Append As #2    '把记录保存到文件尾
          Print #1,now & Space$(5) & Data   '保存记录，格式为 日期     记录
     Close #2
     Label1.Caption="记录:" & Data & "保存成功。"
Else
     Label1.Caption="记录已经存在。"
End If
End Sub
Private Sub Command1_Click()
Call AddData(Text1.Text,"C:\Data.txt")  '保存记录到 C:\Data.txt
End Sub
不知道你的要求是不是这样。使用记事本打的。不知道有没错误。