Here's something to think about.
Dim sLine as String
Open sFileName For Input As #1
Open sFileNew For Output As #2
Input #1, sLine
Mid$(sLine, 63, 9) = “Your Name”
Print #2, sLine
Do While Not EOF(1)
Input #1, sLine
If left(sline,10) = “Visual Basic” then
Mid$(sLine, 63, 9) = “Your...