Você está misturando algumas coisas nos Ifs. Observe bem a alternância entre TextBox1 e TextBox2.

De qualquer maneira, segue o que reescrevi:

Private Sub TextBox1_AfterUpdate()
Dim valor_1 As Double

Dim valor_2 As Double

Me.Label1.Caption = ""

valor_1 = 0
valor_1 = Me.TextBox1.Value

If Me.TextBox2.Text = "" Then
valor_2 = 0
Else
valor_2 = Me.TextBox2.Value
End If

Me.Label1.Caption = valor_1 + valor_2
End Sub

Private Sub TextBox2_AfterUpdate()
Dim valor_1 As Double

Dim valor_2 As Double

Me.Label1.Caption = ""

valor_2 = 0
valor_2 = Me.TextBox2.Value

If Me.TextBox1.Text = "" Then
valor_1 = 0
Else
valor_1 = Me.TextBox1.Value
End If

Me.Label1.Caption = valor_1 + valor_2
End Sub

Entendi, mas não compreendi, eu copiei a Form da qui

http://excelamador.blogspot.com.br/2013 ... xtbox.html

Tentei fazer alterações para dar certo, mas sem sucesso.

Obrigado Edson!

Exemplo de erro, no segundo If do código da TextBox2:

If Me.TextBox2.Text = "" Then
valor_2 = 0
Else
valor_2 = Me.TextBox1.Text (Aqui não deve ser TextBox1)
End If

Segue anexo com minhas alterações.