lo que puedes hacer es poner varias texbox, que el usuario introduzca los valores a sumar en cada una y con un botón que al presionarse sume todos los valores de estas texbox y lo divida entre el número de datos que se entraron, este resultado lo muestras en otra textbox.
Si tienes una matriz de datos llamada Text1que contenga 5 texbox, un botón de comando llamado cmdPromedio y otra texbox llamada txtPromedio, el código es este:
__________________________________
'Declaramos las variables que usaremos
Dim contador As Integer
Dim suma As Integer
Dim promedio As String
Private Sub cmdPromedio_Click()
contador = 0
suma = 0
'primero checamos que los datos sean válidos
For i = 0 To 4
If Text1(i) <> "" And Not IsNumeric(Text1(i)) Then
MsgBox "¡Todos los valores debens ser numéricos!"
Exit Sub
End If
Next i
'Si son válidos, sumamos los contenidos
'de cada textbox1
For i = 0 To 4
If Text1(i) <> "" Then
suma = suma + Text1(i) 'suma total
contador = contador + 1 'número de datos
End If
Next i
'ahora hacemos el cálculo del promedio
promedio = suma / contador
'y lo mostramos en la txtPromedio
txtPromedio.Text = promedio
End Sub
________________________________--
Sólo crea un formulario con los elementos que te mencioné y pega este código tal cual está, si gustas te puedo enviar el formulario ya hecho a tu correo electrónico.
