Ajuda com Funções em VBA

[flavianunesf]

Preciso criar uma função que calcule média ponderada. Ela pegaria o valor dos créditos de uma coluna e as notas em outra, daí calcula a média ponderada.

Fiz esse esquema abaixo, mas não deu certo

Function rsg(creditos(), notas() As Double) As Double

Dim i As Integer
Dim soma, aux As Double

    soma = 0
    aux = 0

        For i = 1 To i = 20
                    
            If notass(i) >= 90 Then
                soma = soma + 5 * creditos(i)
            ElseIf notas(i) >= 80 And notas(i) < 90 Then
                soma = soma + 4 * creditos(i)
            ElseIf notas(i) >= 70 And notas(i) < 80 Then
                soma = soma + 3 * creditos(i)
            ElseIf notas(i) >= 60 And notas(i) < 80 Then
                soma = soma + 2 * creditos(i)
            ElseIf notas(i) >= 40 And notas(i) < 60 Then
                soma = soma + 1 * creditos(i)
            Else: soma = soma + 0 * creditos(i)
            
            End If
            aux = aux + creditos(i)
                      
        Next i
        
        rsg = 0
        rsg = soma / aux

End Function

Alguém pra me ajudar?!

Obrigada!

Editado Agosto 3, 2010 por kuroi
Adicionar tag CODE

[kuroi]

acho q o for devia ser assim não??

For i = 1 To 20