Suma total de listbox de un formulario

He tratado de sumar en dos columnas aparte de un listbox pero me edad error tipo 13 de ejecución no coinciden los tipos en EXCELes agradecería si me pudiera ayudar.

Private Sub SUMADEBE()
'Dim IndiceLis As Double

Dim VTotal As Double
Application.ScreenUpdating = False
If TextBox3.Text = "" Then
MsgBox "El campo a sumar no puede estar vacío", vbRetryCancel, "Error"
Else

VTotal = 0

If ListBox3.ListCount < 1 Then Exit Sub

For IndiceLis = 0 To ListBox3.ListCount - 1

VTotal = VTotal + CDbl(ListBox3.List(IndiceLis))
Next IndiceLis
TextBoxD.Text = VTotal

End If
Application.ScreenUpdating = True
End Sub