array problems

[peet]

Private Sub Command1_Click()
    Dim y(200) As Integer
    Dim counter As Integer
    Dim i As Integer
    
    'fill array
    Do While counter <= 200
        y(counter) = counter * Rnd
        counter = counter + 1
    Loop
    
    'show whats in the array
    For i = 0 To UBound(y)
        Debug.Print y(i)
    Next i
End Sub