Mine

     Dim j As Integer
            Dim boxs() As TextBox = {overall, attack, Defence, strength, Hitpoints, ranged, prayer, magic, cooking, woodcutting, fletching, fishing, firemaking, crafting, smithing, mining, herblore, agility, thieving, slayer, farming, runecrafting, hunting, construction}
            Do While j <= 23
                boxs(j).Text = sarray(5 * j + 2)
                j = j + 1
            Loop
            Dim i As Integer = 0
            Do While i <= 23
                boxs(i).Text = boxs(i).Text.Remove(0, 1)
                i = i + 1
            Loop