Auto rellenar textbox con un "0" cuando no se escribe nada

Tengo un formulario y quería que cuando no ingreso los datos en alguno de los textbox, este me lo rellene con un "0".

Gracias

Private Sub Insertar_Condiciones_Click()
    With Sheets("DATOS")
        .Range("D4").Value = CDbl(Descuento) / 100
        .Range("D5").Value = CDbl(Beneficio) / 100
        .Range("D6").Value = CDbl(Desperdicio) / 100
        .Range("D7").Value = CDbl(Gts_Varios) / 100
        .Range("D8").Value = CDbl(Transporte) / 100
        .Range("D9").Value = CDbl(Negociacion) / 100
        Range("E1").Select
        Selection.Copy
        Range("E2").Select
        Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
        MsgBox "Datos Registrados!", vbInformation, ""
        Unload Me
    End With
End Sub