Public Sub Show_Array (ByRef Values() As Integer)
  Dim I As Integer

  For I = 0 to Ubound(Values) 
    Debug.Print Values(I)
  Next
End Sub

Public Sub Main()
  Dim Scores(4) As Integer

  Scores(0) = 70
  Scores(1) = 80
  Scores(2) = 90
  Scores(3) = 100
  Scores(4) = 90

  Show_Array Scores()
End Sub