title: Fetch all text from text file and show in UserForm text box
body: <p>I am using the code below which reads the text from a text file and places all of the text in my UserForm text box. The problem I have is when the text is shown in the textbox it shows unformatted, i.e. text divided by line breaks like: </p>
  
  <pre><code>The cat went east
  The dog went south
  </code></pre>
  
  <p>all reads on one line and has these weird 'P' symbols in amongst the text like:</p>
  
  <pre><code>'P'The cat went east 'P'The dog went south'P'
  </code></pre>
  
  <p>So one of my questions is how do I restore the formatting of the text to display like this?:</p>
  
  <pre><code>    The cat went east
      The dog went south
  </code></pre>
  
  <p>And eventually my text is going to be cut off out of view of the text box because the text box is only so big but my text could be multiple lines like:</p>
  
  <pre><code>The cat went east
  The dog went south
  The cat went east
  The dog went south
  The cat went east
  The dog went south
  The cat went east
  The dog went south
  </code></pre>
  
  <p>So how can I add  scroll up/down function to the text box?</p>
  
  <p>Code:</p>
  
  <pre><code>Private Sub UserForm_Activate()
  
    m1 = Month(Range("C" &amp; ActiveCell.Row).Value)
  M = MonthName(m1, True)
  Y = Year(Range("C" &amp; ActiveCell.Row).Value)
  
  Dim Total As String
  Dim FilePath As String
  Dim strLine As String
  FilePath = "\\MI-FILESERVE1\Shared Folders\Shared_Business_Dev\Tenders\" &amp; Range("G" &amp; ActiveCell.Row).Value &amp; "\" &amp; Range("E" &amp; ActiveCell.Row).Value &amp; "\" &amp; Range("F" &amp; ActiveCell.Row).Value &amp; " - " &amp; M &amp; " - " &amp; Y &amp; "\log.txt"
  Open FilePath For Input As #1
  While EOF(1) = False
      'read the next line of data in the text file
      Line Input #1, strLine
      Total = Total &amp; vbNewLine &amp; strLine
      'increment the row counter
      i2 = i2 + 1
  Wend
  Close #1
  
  TextBox1 = Total
  End Sub
  </code></pre>