A parte l'errore, che forse ho risolto, il mio intento sarebbe quello di scrivere una cosa del genere, ma meno dozzinale.

codice:
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim strPosizione() As String
        Dim Elenco As String(,) = _
        {{"ZeroZero", "ZeroUno", "ZeroDue"}, _
        {"UnoZero", "UnoUno", "UnoDue"}, _
        {"DueZero", "DueUno", "DueDue"}}

        Dim a As Integer = CInt(Elenco.length / 3)

        ReDim strPosizione(a)
        For i As Integer = 0 To a
              strPosizione(i) = Elenco(i, 1)
         Next
    End Sub
End Class
Avete qualche consiglio?