I need to create a message box that will display 3 different Excel ranges. 

This is my data:  

[![this is my data](https://i.stack.imgur.com/27rSl.png)](https://i.stack.imgur.com/27rSl.png)

and I need to have a message box that should look like this:  

[![this is my data](https://i.stack.imgur.com/zymbL.png)](https://i.stack.imgur.com/zymbL.png)

After clicking OK, it should display B1:B6 like this:  

[![this is my date](https://i.stack.imgur.com/aCEHS.png)](https://i.stack.imgur.com/aCEHS.png)

And then when you click OK again it should display range C1:C6.

This is my code so far:

```
Sub Message_Box()

Dim a As Range
Dim sTxt As String

For Each a In ThisWorkbook.Sheets("Sheet1").Range("a1:a6")
sTxt = sTxt & vbLf & a.Value
Next a

MsgBox sTxt

End Sub

```