olas bueno tengo una duda.. recien estoy empezandome con vb.net

quisiera allar el promedio de "N" notas ....  hize de una manera pero me salta un error y mi formulario se cuelga xD

Module Module1
    Public Function ejemplo(ByVal ParamArray notas() As Integer) As Integer
        Dim acumulador As Integer
        Dim promedio As Integer
        acumulador = 0

        For indice = 0 To notas.Length
            acumulador = acumulador + notas.Length
            promedio = acumulador / notas(indice)
        Next

        Return promedio

    End Function
End Module

y esta funcion la ejecuto en un boton


MsgBox(ejemplo(1, 1))

me dice " no se encontro indexOutOfRange.... bla bla.... " Alguien me podria ayudar? o alguna otra manera de hacerlo ??? grax !!

Aprovecha las funciones que te brinda .Net. La función Average está presente en todas las listas o array númericas:

    Public Function ejemplo(ByVal ParamArray notas() As Integer) As Integer
        Return notas.Average
    End Function

aunque no entendi la parte de -1 

aaaaaaaaaaaaa ahora si ya entendi por que se me colgaba mi formulario  ..... GRACIAS !!!  pero aki tngo otra duda

        Dim mensaje As String
        Dim arreglo(4) As String

        arreglo(0) = "primero"
        arreglo(1) = "segundo"
        arreglo(2) = "tercero"
        arreglo(3) = "cuarto"


        For index As Integer = 0 To arreglo.Length - 1
            mensaje = arreglo(index)
            MsgBox(mensaje)

        Next
al ejecutarlo me muestra bien los arreglos dsde el indice 0 al 3 pero despues me muestra otra ventana mas.. y vacia....  tiene alguna explicacion ?