Выравнивание данных в MsgBox по строкам и столбцам

[CaptainNemo]

Добрый день. Подскажите, как в MsgBox передать данные из ячеек, выровненные по строкам и столбцам. И так и сяк сегодня пробовал, последняя строчка плывёт… Если не длинные слова в выделенном диапазоне, то проблемы не видно.
Пробую вот так:

Sub Test1()
Dim m As Integer, n As Integer
Dim i As Integer, j As Integer
Dim myArr(), msg As String
    m = Selection.Rows.Count: n = Selection.Columns.Count
    ReDim myArr(1 To m, 1 To n)
    For i = 1 To m
        For j = 1 To n
            myArr(i, j) = Selection.Cells(i, j)
            msg = msg & vbTab & myArr(i, j)
        Next j
            msg = msg & vbCrLf
    Next i
    MsgBox msg
End Sub

Как последнюю строчку подравнять, никак не могу догадаться…
Спасибо.