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

Sub WhileWend()
'Variação do Do While Loop vai somando numero digitados até atingir 40.
Dim x As Integer
Dim soma As Integer
  While soma < 40
    x = Val(InputBox("Digite um Numero"))
    soma = soma + x
   Wend
    MsgBox "Valor da Soma = " & soma
End Sub