' Vai recebendo numero até Digitar "0", ' faz a media dos numeros Digitados

Sub PegaTonto()
' Vai recebendo numero até Digitar "0"
' faz a media dos numeros Digitados
Dim num  As Integer
Dim soma As Integer
Dim cont As Integer
Dim media As Double
num = 1
    Do Until num = 0
    num = Val(InputBox("Digite um Numero(0 para terminar)"))
    soma = soma + num
    cont = cont + 1
    Loop
 
cont = cont - 1 'para desconciderar 0 na contagem
 media = soma / cont
MsgBox " A media " & media

End Sub