programming option button_ if errors

Hi, i have been looking for help and i have just don`t figured out.

I am tryin to program a userform, just for collecting inlet data in diferent cell in diferent worksheets of the same workbook. And i want to put those data dependind if the optionbutton is true or not.

I want to capture data in written in textbox8 in cell b27 of worksheet 4 if my option button is marked, and if not i want to capture the data of the textbox8 in the cell d27, both are currency type.

This is wath im trying to use:

Private Sub TextBox8_Change()

With Worksheets(4)

If Option1.Value = True Then

.Range ("b27")
.NumberFormat = "#,###.##"
.Value = Val(TextBox8.Value)

Else


.Range ("D27")
.NumberFormat = "#,###.##"
.Value = Val(TextBox8.Value)

End If




End With

End Sub