Displaying Data ranges both in rows and columns in the Message box

Hi Everyone,

Im new to VBA and Macro and need some help to display the content of the sheet as is in the message box.....

As of now the code only show one column that i could find through the net...

I need to show all the columns and rows......
Excel sheet attached....



Sub Iknowvba()
msg = "DUE LIST ?"
ans = MsgBox(msg, vbYesNo)
If ans = vbYes Then MsgBox "Due List : " & Join(Application.WorksheetFunction.Transpose(Range("E7:E30").Value), Chr$(10))
If ans = vbNo Then MsgBox " Thanks"

End Sub