如何用VB做一个。能在文件的第一行和最后一行加上文字。

'***************************************************************
'将字符串写入文件
Private Sub WriteFile(filePath As String, strTmp As String)
Open filePath For Output As #1
Print #1, strTmp
Close #1
End Sub
'***************************************************************
'读文件返回字符串
Private Function ReadFile(filePath As String) As String
Dim fileStr As String
Open filePath For Input As #1

Do While Not EOF(1)
Line Input #1, tem
fileStr = fileStr & tem & vbCrLf
Loop
Close #1
ReadFile = fileStr
End Function
'***************************************************************

'执行代码
Private Sub Command1_Click()
Dim str As String
str = ReadFile("E:\123")
str = "50888" & vbCrLf & str
str = str & 60888
WriteFile "E:\123", str
E