VBA/Excel/Access/Word/Data Type/Array Erase

Erasing Arrays

   <source lang="vb">

Sub arrayTest4()

    Dim i As Integer
    Dim intMyScores() As Integer
    Dim intArraySize As Integer
   
    intArraySize = 10
   
    ReDim intMyScores(1 To intArraySize)
   
    For i = 1 To intArraySize
       intMyScores(i) = i
    Next
   
    For i = 1 To intArraySize
       Debug.Print "For array element " & i & " the number is " & intMyScores(i)
    Next
    Erase intMyScores

End Sub

</source>
   
  

Removing Data from an Array

   <source lang="vb">

" start indexing array elements at 1 "Option Base 1 Sub FunCities()

   Dim cities(1 To 5) As String
   cities(1) = "Las Vegas"
   cities(2) = "Orlando"
   cities(3) = "Atlantic City"
   cities(4) = "New York"
   cities(5) = "San Francisco"
   MsgBox cities(1) & Chr(13) & cities(2) & Chr(13) _
       & cities(3) & Chr(13) & cities(4) & Chr(13) _
       & cities(5)
   Erase cities
   MsgBox cities(1) & Chr(13) & cities(2) & Chr(13) _
       & cities(3) & Chr(13) & cities(4) & Chr(13) _
       & cities(5)

End Sub

</source>