Option Base 1 ' Create a one-dimensional array with 20 elements, ' which can be referred to as sample(1) to sample(20). Dim sample(20) As Integer