Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

Using a Two-Dimensional Array and Reference its elements

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