title: MessageBox in VBA Excel
body: <p>I need to create a message box that will display 3 different Excel ranges. </p>
  
  <p>This is my data:<br>
  <a href="https://i.stack.imgur.com/27rSl.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/27rSl.png" alt="this is my data"></a></p>
  
  <p>and I need to have a message box that should look like this:<br>
  <a href="https://i.stack.imgur.com/zymbL.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/zymbL.png" alt="this is my data"></a></p>
  
  <p>After clicking OK, it should display B1:B6 like this:<br>
  <a href="https://i.stack.imgur.com/aCEHS.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/aCEHS.png" alt="this is my date"></a></p>
  
  <p>And then when you click OK again it should display range C1:C6.</p>
  
  <p>This is my code so far:</p>
  
  <pre><code>Sub Message_Box()
  
  Dim a As Range
  Dim sTxt As String
  
  For Each a In ThisWorkbook.Sheets("Sheet1").Range("a1:a6")
  sTxt = sTxt &amp; vbLf &amp; a.Value
  Next a
  
  MsgBox sTxt
  
  End Sub
  </code></pre>