Visual Basic - programa

por favor puedes ayudarme a resolver un programa de visual realizar u n programa que calcule el promedio por medio de vectores

No se que queres exactamente, pero fijate con ésto:

Public Function Promedio(ParamArray Elementos()) As Double
Dim i As Long, Suma As Long

Suma = 0

For i = LBound(Elementos) To UBound(Elementos)
Suma = Suma + Elementos(i)
Next i

Promedio = Suma / UBound(Elementos)
End Function