Sub aSub() Dim t As String Dim r As String Dim Ex(3, 3) As Variant t = Chr(9) ' Tab r = Chr(13) ' Enter Ex(1, 1) = "A" Ex(1, 2) = "B" Ex(1, 3) = 1# MsgBox t & r & Ex(1, 1) & t & Ex(1, 2) & t & Ex(1, 3) & r & Ex(1, 1) & t & Ex(1, 2) & t & Ex(1, 3) End Sub