Pesquisar na Comunidade

Estou com um problema semelhante a alguns casos que vi aqui no fórum, porém gostaria de sobrescrever uma determinada linha. Eu sei onde ela se encontra por número de linha e também por texto, mas não sei como posso substituir. Alguém pode me ajudar?? Tenho um arquivo cps onde preciso substituir estas linhas: <setting name="authorization_username" value="789"/> ->> linha 92 do arquivo <setting name="display_name" value="789"/> ->> linha 98 do arquivo <setting name="username" value="789"/> ->> linha 155 do arquivo E alterar pelo valor que o usuário insere no script. O Script que tenho é o seguinte: strInput = InputBox ("Digite seu ramal") Const FOR_READING = 1 Const FOR_WRITING = 2 Set wshShell = CreateObject( "WScript.Shell" ) strFileName = wshShell.ExpandEnvironmentStrings( "%userprofile%" ) & "\AppData\Local\CounterPath\RegNow Enhanced\default_user\settings.cps" Set objFS = CreateObject("Scripting.FileSystemObject") Set objTS = objFS.OpenTextFile(strFileName, FOR_READING) strContents = objTS.ReadAll objTS.Close Set objTS = objFS.OpenTextFile(strFileName, FOR_WRITING) strContents = Replace(strContents, "789", strInput) objTS.WriteLine strContents objTS.Close Até então ele funciona, porém ele deve rodar com mais usuários e o valor não vai ser sempre "789", deverá ser o valor que existe dentro daquele arquivo e naquela variável. Por exemplo se value for 1000 e o usuário inserir 500, o script deverá alterar no arquivo o valor de 1000 para 500. A minha dúvida é como alterar isso a partir do valor que possuo no arquivo, pois pelo replace eu consigo alterar a partir do valor que já estou passando no código. Então pensei em substituir a linha por alguns parâmetros pré-definidos, e dentro de value colocar o strInput que o usuário digitou. Sou novata em vb e não consegui encontrar na internet. Essa seria a melhor forma? Alguém pode me ajudar?