Restar valor de textbox a celda

Buenas, necesitaria ayuda con el siguiente codigo:

If ComboBox1 = "Ingreso" Or ComboBox3 = "Efectivo" Then

Cells(39, mes).Value = TextBox1.Value + ActiveCell.Offset(35, 0)

End If

If ComboBox1 = "Egreso" Or ComboBox2 = "Efectivo" Then

Cells(39, mes).Value = Cells(39, mes).Value - TextBox1.Value

End If

Esta en un formulario con tres combobox y un textbox. La operatoria que busco es simple, si en determinado combobox hay una palabra, el dato del textbox se suma o se resta al valor de una celda.

El problema me surge cuando en el combobox1 pongo Egreso, ya que no me hace la resta.

Agradezco a quien tenga tiempo e intenciones de ayudarmeee.....