Ajuda exercício básico

[marcog]

ex1 Escreva sub rotina que, tendo como argumentos um vetor de números reais e respetiva dimensão, determina e mostra numa MsgBox() a média ponderada dos valores do vetor. Esta média não considera o maior nem o menor valores do conjunto.

isto foi o que eu escrevi, sei que está errado e preciso de ajuda urgente

Sub media(ByRef v() As Single, dimensao As Integer)
Dim s, max, min As Single
s = 0
min = v(1)
max = v(1)
For x = 1 To dimensao
If v(x) > max Then
max = v(x)
End If
If v(x) < min Then
min = v(x)
End If
s = s + v(x) - min - max
Next
media = s / (dimensao - 2)
MsgBox ("A média ponderada é" & media)
End Sub

ex2 Escreva uma funçao que faça a validaçao da nota duma prova, entre 0 e 20 valores. Em seguida escreva uma subrotina que usando a função preencha um vetor com as notas de 40 alunos.

o que eu escrevi

Function valnota() As Single
Dim nota As Single
Do
     nota = Val(InputBox("nota?"))
Loop Until nota >= 0 And nota <= 20
valnota = nota
End Function


Sub alinea3(ByRef valnota() As Single)
Dim x As Integer
For x = 1 To 40
     v(x) = valnota(x) 'nao sei chamar uma funcao
Next x
End Sub