cara, ainda não consegui entender muito bem o seu raciocínio, mas eu acho que é isso Dim nota As Single
Dim media As Single
Dim i As Single
Private Sub Command1_Click()
nota = txtNota.Text
media = 0
For i = 1 To 4
media = media + nota
Next
media = media / 5
txtMedia.Text = media
End Sub Vou citar um exemplo: o usuário escreve o valor "10" na sua nota a contagem fará com que o número "10" seja multiplicado por 4 (número de notas) Após isso, será dividido por 5 (número de unidades totais, até onde entendi) O programa irá obter 8 (10*4/5), que é a média do usuário sem contar com a quinta unidade Ainda não sei se é isso que você quer, mas deu a entender que era isso a partir de um post de outro usuário É o mesmo cálculo efetuado por AcidSnow, mas com o uso de loop