Various issues with arrays

    Sub CreateGoldLabels()
        Dim ArrayOfBucks(Box_no) As String
        ArrayOfBucks(0) = "£0.01"
        ArrayOfBucks(1) = "£0.10"
        ArrayOfBucks(2) = "£0.50"
        ArrayOfBucks(3) = "£1"
        ArrayOfBucks(4) = "£5"
        ArrayOfBucks(5) = "£10"
        ArrayOfBucks(6) = "£50"
        ArrayOfBucks(7) = "£100"
        ArrayOfBucks(8) = "£250"
        ArrayOfBucks(9) = "£500"
        ArrayOfBucks(10) = "£750"
        ArrayOfBucks(11) = "£1,000"
        ArrayOfBucks(12) = "£3,000"
        ArrayOfBucks(13) = "£5,000"
        ArrayOfBucks(14) = "£10,000"
        ArrayOfBucks(15) = "£15,000"
        ArrayOfBucks(16) = "£20,000"
        ArrayOfBucks(17) = "£35,000"
        ArrayOfBucks(18) = "£50,000"
        ArrayOfBucks(19) = "£75,000"
        ArrayOfBucks(20) = "£100,000"
        ArrayOfBucks(21) = "£250,000"
        Dim X, Y, k, counter As Integer      '4 variables
        X = 56                                       'coordinates XY
        Y = 24
        counter = 0
        For k = 0 To (Box_no - 1) ' box_no = 22
            counter += 1
            Glabel(counter) = New Label
            Glabel(counter).Size = New Size(56, 24)
            Glabel(counter).Location = New Point(X, Y)
            Glabel(counter).BackColor = Color.Silver
            Glabel(counter).Text = ArrayOfBucks(k)
            Glabel(counter).Visible = True
            Glabel(counter).Enabled = True
            Y += 32
            If counter = (Box_no / 2) Then
                X = 472
            End If

        Next
    End Sub