Data Type VisualBasic Script

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