Замена строки в текстовом файле при нажатии клавиши - VB

Формулировка задачи:

Приветствую всех форумчан. Я здесь впервые, делаю робота, пишу под него программу управления на ВБ 6.0. Столкнулся с проблемой, которую два дня не могу самостоятельно решить. Прошу поддержки зала. Моя задача. Имеется текстовый файл MP710.local.set. В нем написаны следующие строки:

;CMD=0 ;PRG=0 PORT11=0:NC PORT12=0:NC

При нажатии клавиши «стрелка вверх» третья строка PORT11=0:NC должна поменяться на PORT11=128:NC. Я добился результата, только лишь стирая все содержимое файла и вписывая все значения заново. Ниже кусок моего кода. Но мне надо сохранить значения в остальных строках и заменять именно нужную мне строку. Подскажите, пожалуйста, как заменить третью строку в текстовом файле не трогая остальные? Пробовал Replace, но что-то не совсем работает, видимо недопонимаю.

                    Листинг программы
                
 
                        
                          
                    
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then
Open "d:\MP710.local.set" For Output As #1 'Открываем файл для добавления записи, с номером канала 1
Print #1, ";CMD=0" ' Записываем в файл текст
Print #1, ";PRG=0" ' Записываем в файл текст
Print #1, "PORT11=128:NC" ' Записываем в файл текст
Print #1, "PORT12=0:NC" ' Записываем в файл текст
Close #1 'Закрываем файл
End If
End Sub

Заранее благодарен.

Решение задачи: «Замена строки в текстовом файле при нажатии клавиши»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim textline As String
 
Private Sub Command1_Click()
' Читаем файл в переменную
textline = Space(FileLen("d:\MP710.local.set"))
fo = FreeFile
Open "d:\MP710.local.set" For Input As #fo
textline = Input(LOF(fo), #fo)
Close #fo
' Изменяем содержимое
textline = Replace(textline, "PORT11=0:NC", "PORT11=128:NC")
' Сохраняем в файл
FileNum = FreeFile
Open "d:\MP710.local.set" For Output As FileNum
Print #FileNum, textline
Close #FileNum
 
End Sub