Cosa sbaglio?


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"}}

        ReDim strPosizione(Elenco.Length - 1)
        For i As Integer = 0 To Elenco.Length - 1
         Next
        MessageBox.Show(strPosizione(1))
    End Sub
End Class
Nel mio computer, questo codice viene eseguito fino al NEXT. GLi ultimi due messaggi, quello con "Adesso" e con strPosizione(1) NON vengono eseguiti.
I messaggi al centro del ciclo invece appaiono regolarmente.

In pratica si apre la form senza mostrarli.
E cosa ancora più strana, non mi appaiono nemmeno errori dal compilatore...
Qualcuno mi sa siegare come mai?
Grazie.