想替换文本某一行 怎么老从已经有的内容后加，不是替换，请指点
Sub tihuan(strTargetFile As String, intRow As Long)
    Dim filenum         As Integer
    Dim fileContents    As String
    Dim fileInfo()      As String
    Dim i               As Integer
   
    filenum = FreeFile
    Open strTargetFile For Binary As #filenum
        fileContents = Space(LOF(filenum))
        Get #filenum, , fileContents
    Close filenum
    fileInfo = Split(fileContents, vbCrLf)
  
   
    Open strTargetFile For Append As #filenum
        For i = 0 To UBound(fileInfo) - 1
            If i = intRow Then
            Print #filenum, "你好"
            End If
        Next
    Close #filenum
   
   
   
    MsgBox "完毕"
End Sub


Private Sub Command1_Click()
Call tihuan("aa.txt", 3)
End Sub

Sub tihuan(strTargetFile As String, intRow As Long)
    Dim filenum         As Integer
    Dim fileContents    As String
    Dim fileInfo()      As String
    Dim i               As Integer
    
    filenum = FreeFile
    Open strTargetFile For Binary As #filenum
        fileContents = Space(LOF(filenum))
        Get #filenum, , fileContents
    Close filenum
    fileInfo = Split(fileContents, vbCrLf)
  
    
    Open strTargetFile For Append As #filenum
        For i = 0 To UBound(fileInfo) - 1
            If i = intRow Then  ' i不等于intRow的时候没有输出？
            Print #filenum, "你好"
            End If
        Next
    Close #filenum
    
    
    
    MsgBox "完毕"
End Sub

只改某一行，但是提交后却不是在第三行（比如说），结果写在整个文本的后面

本来你Append 就是追加……


Sub tihuan(strTargetFile As String, intRow As Long)
    Dim filenum         As Integer
    Dim fileContents    As String
    Dim fileInfo()      As String

    filenum = FreeFile
    Open strTargetFile For Binary As #filenum
        fileContents = Space(LOF(filenum))
        Get #filenum, , fileContents
    Close filenum
    fileInfo = Split(fileContents, vbCrLf)
    fileInfo(intRow - 1) = "你好"

    Open strTargetFile For Output As #filenum
        Print #filenum, Join(fileInfo, vbCrLf)
    Close #filenum



    MsgBox "完毕"
End Sub


Private Sub Command1_Click()
    Call tihuan("C:\aa.txt", 3)
End Sub