title: Put new text on the same line in the output file
body: <p>I'm trying to make a settings file for my. Vbs happens that it also creates settings for my. Bat file and add new text to invest the same place the text on the same line the file creates a new line.</p>
  
  <p><strong><em>Ex:</em></strong> </p>
  
  <p>CBNC-Blacklist =TEST</p>
  
  <p><strong>When I add a new text with the old it is well</strong></p>
  
  <p>CBNC-Blacklist =TEST</p>
  
  <p>SDSADADA</p>
  
  <pre><code>Sub Main()
    Dim Blist
  
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.GetFile("A\a00_Blacklist.ini")
    If objFile.Size &gt; 0 Then
      Set objReadFile = objFSO.OpenTextFile("A\a00_Blacklist.ini", 1)
      strContents = objReadFile.ReadAll
      objReadFile.Close
    End if
  
    Set WshShell = CreateObject("WScript.Shell")
  
    Const ForReading = 1, ForWriting = 2, ForAppending = 8, CreateIfNeeded = True
  
    Blist = Inputbox(vbcrlf &amp; "Digite abaixo os itens que você deseja adicionar" &amp; vbcrlf &amp; "na Blacklist separando os mesmos com espaços:", "NoCheating", strContents)
  
    If Blist = "" Then
      msgbox "A Blacklist NÃO foi alterada!",vbExclamation,"NoCheating"
    Else 
      Set objFSO = CreateObject("Scripting.FileSystemObject")
      Set objMiFichero = objFSO.OpenTextFile("A\a00_Blacklist.ini", ForWriting, CreateIfNeeded)
  
      objMiFichero.WriteLine( Blist )
  
      Set objFSO = CreateObject("Scripting.FileSystemObject")
      Set objMiFichero = objFSO.OpenTextFile("A\a00_Config_2.ini", ForWriting, CreateIfNeeded)
  
      objMiFichero.WriteLine( "CBNC-Blacklist="&amp;Blist )
  
      msgbox "A Blacklist foi atualizada!",vbInformation,"NoCheating"
    End if
  End Sub
  
  On Error Resume Next
  
  Main
  
  If Err.Number Then
    WScript.Quit 4711
  End If
  </code></pre>