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