Array in VBA

Array in VBA

Declaring and Initialization

Option   Explicit
 
Sub  arrayInVBA()
     Dim  a1( 5 )  As   String
     Debug.Assert  LBound (a1)  =   0
     Debug.Assert  UBound (a1)  =   5
     Debug.Assert  TypeName (a1)  =   " String() "

     Dim  a2( 2   To   5 )  As   Integer
     Debug.Assert  LBound (a2)  =   2
     Debug.Assert  UBound (a2)  =   5
     Debug.Assert  TypeName (a2)  =   " Integer() "

     Dim  arrayFunction: arrayFunction  =  Array( " aa " ,  " bb " ,  " cc " ,  " dd " ,  " ee " ,  " ff " )
     Debug.Assert  LBound (arrayFunction)  =   0
     Debug.Assert  UBound (arrayFunction)  =   5
     Debug.Assert  TypeName (arrayFunction)  =   " Variant() "

     ' initialize by Array() function
     Dim  i  As   Integer
     For  i  =   0   To   5
        a1(i)  =  arrayFunction(i)
     Next  i
    
     For  i  =   0   To   5
       Debug.Print a1(i)
     Next  i
End Sub