Visual Basic - Suma

Hola, tengo la siguiente instruccion sin embargo al final la orden TextBox23.Text = a + b + c no me muestra el valor , que error tengo??? o que me falta??

Private Sub CommandButton11_Click()
Dim a As Double
Dim b As Double
Dim c As Double
If TextBox20.Text = "" Then
TextBox20.Text = 0
a = TextBox20.Text
If TextBox21.Text = "" Then
TextBox21.Text = 0
b = TextBox21.Text
If TextBox22.Text = "" Then
TextBox22.Text = 0
c = TextBox22.Text
Else
TextBox23.Text = a + b + c
End If
End If
End If
End Sub

simplificate la vida amigo, con esto sumas los 3 valores

textbox23 = textbox20 + textbox21 + textbox22

saludos

si kieres ponle como propiedad del texto un cero. asi evitas los IF

Hola Patricio esto te servira, si deseas ayuda mandame un mail a
[email protected]
==============================
codigo en visual basic
==============================
Dim a As Double
Dim b As Double
Dim c As Double
If (Text1 = "") Or (Text2 = "") Or (Text3 = "") Then MsgBox "Faltar insertar un valor", 32, "Mensaje": Exit Sub
a = Text1
b = Text2
c = Text3
Text4.Text = a + b + c
==============================
codigo en visual basic.net
==============================
Dim a As Double
Dim b As Double
Dim c As Double
If (TextBox20= "") Or (TextBox21= "") Or (TextBox22= "") Then MsgBox "Faltar insertar un valor", 32, "Mensaje": Exit Sub
a = TextBox20
b = TextBox21
c = TextBox22
TextBox23.Text = a + b + c

El error que tienes es de lógica.
If TextBox20.Text = "" Then , si no se cumple esta condición el programa se irá al Else ignorando todas instrucciones, con lo que no suma nada.
El If TextBox20.Text = "" Then ponlo en el lostfocus y la suma en el boton.

wao definitivamente, si no tienes logica amigo devuelvete a estudiarla, antes de intentar programar, no lo digo por ofenderte, más bien es un concejo para que se te facilite el camino.

proba de esta manera

Private Sub CommandButton11_Click()
Dim a As Double
Dim b As Double
Dim c As Double

a=0
b=0
c=0

If TextBox20.Text = "" Then
TextBox20.Text = 0
else
a = TextBox20.Text
end if

If TextBox21.Text = "" Then
TextBox21.Text = 0
else
b = TextBox21.Text
end if

If TextBox22.Text = "" Then
TextBox22.Text = 0
else
c = TextBox22.Text
end if

TextBox23.Text = a + b + c
End Sub