'Variação do Do While Loop vai somando numero digitados até atingir 40.

Sub DoUtil()
'Variação do Do While Loop vai somando numero digitados até atingir 40.
Dim x As Integer
Dim soma As Integer

 Do Until soma >= 40
    x = Val(InputBox("Digite um Numero"))
    soma = soma + x
  Loop
    MsgBox "Valor da Soma = " & soma
End Sub