VB向txt文件删记录

'添加窗体Form1,按钮Command1,文本框Text1,新建文件c:\a.txt,向里面写些东西（里面最好含有你要删的东西），然后添加如下代码:
Private Sub Command1_Click()
Dim str1 As String
Dim strFile As String
strFilename = "c:\a.txt"
str1 = fileStr(strFilename) '读取strFileName中的内容
str1 = Replace(str1, Text1.Text, "") '删除含有text1.text的内容
Call writeToFile(strFilename, str1) '保存到strFileName
MsgBox "已经删除文件 " & strFilename & " 中含有 " & Text1.Text & " 的内容"
End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'功能：根据所给的文件名返回文件的内容
'函数名：fileStr
'入口参数(如下)：
' fn 所给的文件名；
'返回值：文件的内容
'备注：sysdzw 于