Do Loop Soma

Resolvendo o Problema

1. Declare as variáveis e atribua o valor 0 a uma delas.

   Dim ValCasa As Variant
   Dim VendasTotais As Double
   
   VendasTotais = 0
   

2. Crie um Do Loop cuja condição de saída seja que o Inputbox receba um valor nulo - vbNullString - (clicou em cancelar). Ao final do loop mostre através de uma MsgBox o valor total que foi somado.

   Do
   
   Loop Until ValCasa = vbNullString
   MsgBox "O Total da receita de hoje foi R$" & VendasTotais, , "SuperExcelVBA"
   

3. Dentro do loop crie um Inputbox com duas condicionais If nas quais contemplem uma soma dos inputs numéricos na variável que atribuímos 0 no começo do exercício. Caso o valor do input não seja numérico, mostre um MsgBox de alerta, e caso vazio (vbNullString) pare o loop.

   ValCasa = InputBox("Coloque o valor da (próxima) Fatura." & vbCrLf & vbCrLf & _
   "Clique em Ok ou Cancel com a entrada vazia quando tiver terminado.", "SuperExcelVBA")
   If Not IsNumeric(ValCasa) Then
       If ValCasa = vbNullString Then
           Exit Do
       End If
       MsgBox "Insira conteúdo numérico", vbCritical, "SuperExcelVBA"
   Else
       VendasTotais = VendasTotais + ValCasa
   End If
   

Código Consolidado

    Sub Resolucao()

    Dim ValCasa As Variant
    Dim VendasTotais As Double

    VendasTotais = 0
    Do
        ValCasa = InputBox("Coloque o valor da (próxima) Fatura." & vbCrLf & vbCrLf & "Clique em Ok ou Cancel com a entrada vazia quando tiver terminado.", "SuperExcelVBA")
        If Not IsNumeric(ValCasa) Then
            If ValCasa = vbNullString Then
                Exit Do
            End If
            MsgBox "Insira conteúdo numérico", vbCritical, "SuperExcelVBA"
        Else
            VendasTotais = VendasTotais + ValCasa
        End If
    Loop Until ValCasa = vbNullString
        MsgBox "O Total da receita de hoje foi R$" & VendasTotais, , "SuperExcelVBA"

    End Sub