' função "locwhile loop" vai somando numero digitados até atingir 40.

Sub locWhile()
' função "locwhile loop" vai somando numero digitados até atingir 40.
Dim x As Integer
Dim soma As Integer

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