Private FileName As String = _
  System.Configuration.ConfigurationSettings.AppSettings("old_txt")
Private FileNameOut As String = _
System.Configuration.ConfigurationSettings.AppSettings("new_txt")
 
Private Sub read_txt()
    Dim Reader As System.IO.StreamReader = New System.IO.StreamReader( _
      ReadFileName, New System.Text.UTF7Encoding)
    Dim Content As String = Reader.ReadToEnd