Sto lavorando su un algoritmo in cui inserisco i voti in un vettore con un ciclo for, ma ad un certo punto mi appare errore dicendomi: Riferimento a un oggetto non impostato su un'istanza di oggetto. Mi evidenzia in particolare: "voti(i) = ReadLine()"

codice:
Imports System.Console
Module Module1
    Dim na As Integer 'numero alunni
    Dim i As Integer
    Dim voti() As Decimal 'vettore contenete i voti degli alunni
    Dim media As Decimal 'media voti
    Dim num_ins As Integer 'numero dei voti insufficienti
    Dim per_ins As Decimal 'relativa percentuale dei voti insufficienti
    Dim voto_max As Decimal 'voto massimo
    Dim somma_voti As Decimal 'variabile locale, somma totale dei voti

    Sub Main()
        Write("Inserire il numero degli alunni: ")
        na = ReadLine()

        For i = 1 To na
            Write("Inserire il voto dell'alunno numero " & i & " : ")
            voti(i) = ReadLine()
        Next i
Grazie