Textbox sin dato genera error en Listbox

Tengo la siguiente rutina:

 Public Sub AgregarItems()

         If frm_Dos.ComboBox3.Text = "" Then MsgBox ("Elija un código de producto"): Exit Sub

        If Trim(frm_Dos.txt_Cantidad.Text) = "" Then MsgBox ("Debe ingresar la cantidad"): Exit Sub

              With frm_Uno

            .ListBox1.AddItem Val(frm_Dos.txt_Cantidad.Text)

            .ListBox1.List(i, 2) = frm_Dos.ComboBox3.Text 'Nombre del producto

            .ListBox1.List(i, 1) = frm_Dos.txt_Codigo.Text 'Codigo del producto

            .ListBox1.List(i, 3) = frm_Dos.txt_PrecioV.Text 'Precio Venta

            .ListBox1.List(i, 4) = frm_Dos.txt_Descuento.Text 'Descuento

            .ListBox1.List(i, 5) = frm_Dos.txt_Importe.Text 'Importe

             i = i + 1

        End With

        sumarDescuento2

        sumarImporte

            With frm_Dos

            .ComboBox3.ListIndex = -1

            .txt_Codigo = ""

            .txt_Cantidad = ""

            .txt_PrecioV = ""

            .txt_Importe = ""

        End With

 End Sub

Como pueden ver los datos se cargan en el listbox por medio de un formulario, el frm_Dos, el inconveniente es con el textbox Descuento, cuando se ingresa un valor en el textbox Descuento, los datos cargan en el listbox sin problema, me realiza las sumas y restas correspondientes, pero si no se utiliza el textbox Descuentos me genera error (13, no coinciden los tipos) y me envía al formulario frm_Dos, donde tengo esta rutina, que es la que da la orden al formulario Uno de ingresar los datos:

Private Sub btn_Agregar_Click() 

    With frm_Uno

        .AgregarItems

        .ctrls_FormatoMoneda

    End With

 MsgBox "Producto agregado con éxito!!!", vbInformation, "titulo"

 End Sub

Mi consulta es si se puede ordenar al listbox que si el textbox Descuento no tiene dato, cargue $ 0,0 o algo que no me genere el error.