In realtà quel codice non dovrebbe funzionare... mi sembra strano che ReDim non elimini tutti i membri dell'array... va beh. Comunque la dichiarazion di un array come variabile può essere esplicita:
codice:
Dim Str(10) As String
Usare ReDim è sconsigliabile poichè decrementa le prestazioni e è in questo caso inutile, poichè si sa a priori il numero di elemento dell'array, che rimane fisso e non cambia.
codice:
Module Module1
    Sub Main()
        Dim Str(10) As String
        
        For I As Byte = 0 To 10
            Str(I) = "n.: " & I
        Next

        Console.WriteLine(Str(Str.Length - 1))
        Console.ReadKey()
    End Sub
End Module