Daniela, coloque os códigos abaixo em seu formulário, veja se é isto que pretende.

Private Sub TxtSoma2_Change()
Dim sSoma2 As Currency
Dim sSoma1 As Currency
    
    If TxtSoma1.Value = "" Then
        TxtResult.Value = 0
    
    ElseIf IsNumeric(TxtSoma1.Text) = False Then
        MsgBox "Digite apenas números na quantidade a ser acrescentada.", vbApplicationModal, "Números"
        TxtSoma1.Text = ""
        TxtSoma1.SetFocus
    
    Else
        sSoma2 = Str(TxtSoma2.Value)
        sSoma1 = TxtSoma1.Value
        TxtResult.Value = sSoma2 + sSoma1
    End If

End Sub

Private Sub TxtSoma1_Change()
Dim sSoma1 As Currency
Dim sSoma2 As Currency
    
    If TxtSoma2.Value = "" Then
        TxtResult.Value = 0
    
    ElseIf IsNumeric(TxtSoma2.Text) = False Then
        MsgBox "Digite apenas números na quantidade a ser acrescentada.", vbApplicationModal, "Números"
        TxtSoma2.Text = ""
        TxtSoma2.SetFocus
    
    Else
        sSoma1 = Str(TxtSoma1.Value)
        sSoma2 = TxtSoma2.Value
        TxtResult.Value = sSoma1 + sSoma2
    End If

End Sub

[]s

É isso mesmo Mauro, valeu muito Obrigada