Imports System.Collections

Public Class Form1

    Dim ElementosDeCocina(8) As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ElementosDeCocina(0) = "Mueble"
        ElementosDeCocina(1) = "Cocina"
        ElementosDeCocina(2) = "Cubiertos"
        ElementosDeCocina(3) = "Pileta"
        ElementosDeCocina(4) = "Cafetera"
        ElementosDeCocina(5) = "Platos"
        ElementosDeCocina(6) = "Especias"
        ElementosDeCocina(7) = "Aderezos"
        ElementosDeCocina(8) = "Grill"

        ReDim Preserve ElementosDeCocina(9)
        ElementosDeCocina(9) = "Ollas"

        Array.Sort(ElementosDeCocina)

        For i = 0 To UBound(ElementosDeCocina)
            MessageBox.Show(ElementosDeCocina(i))
        Next
        Erase ElementosDeCocina

    End Sub
End Class