vb.6 code to read and edit particular line in notepad

[Bob Phillips]

Is this the sort of thing you were after?

Sub WriteUTF8()
    Const inFileName As String = "C:\test\test.txt" '"D:\dhananjayan\zimmer\test\trail_test.txt"
    Const outFileName As String = "C:\test\test2.txt"
    With CreateObject("ADODB.Stream")
        .Open
        .LoadFromFile inFileName
        .Type = 2
        .Charset = "UTF-8"
        .ReadText   'read past all existing data
        .Writetext "Here is another line" & vbCrLf
        .SaveToFile outFileName, 2 ' adSaveCreateOverWrite
        .Close
    End With
End Sub