Creating IF statement for iRow Entry

Hello,

What Im trying to do is probably fairly simple, but I haven't been able to get it. What I basically am trying to do is, if a user selects "Apples" from combo-box3, I want the value from textbox 1 inserted on iRow, 3....If the word Oranges is selected from the combo-box 3 then I want the value in textbox 1 to be inserted on iRow, 4

So here's my code so far, but its not working:

Sub blahblah()

Set we = Worksheets("Chart View"): we.Activate

Range("A1").Value = 1
Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1) = Range("A" & Range("A" & Rows.Count).End(xlUp).Row) + 1

iRow = Worksheets("Chart View").Range("A65536").End(xlUp).Row + 1
we.Cells(iRow, 2).Value = Me.ComboBox2.Value
If Me.ComboBox3.Value = "Apples" Then
we.Cells(iRow, 3).Value = TextBox1.Value
End If
If Me.ComboBox3.Value = "Oranges" Then
we.Cells(iRow, 4).Value = TextBox1.Value
End If
End Sub

any ideas why that isn't working?

Thanks for the help