Help Needed There are some error in my code

Function AccumulateReturn(myPerf As Range) As Single

Dim accRet As Single
Dim numObs As Integer
Dim i As interger

numObs = myPerf.Count
accRet = 0
For i = 1 To numObs
accRet = accRet * (1 + myPerf(i))
End If
i = numObs
Next i
accRet = accRet - 1
MsgBox("Accumulated Return from" & Text(acctRet,#0.00) & "Observations is: " TexT(numObs, ##00.00#), vbOkOnly, "My Final" AccumulateReturn = accRet)

End Function