Private Sub CommandButton1_Click()
Cells(Selection.Row, 1) = TextBox3 & "_" & TextBox4
Cells(Selection.Row, 2) = TextBox3 & vbLf & TextBox4
If OptionButton1 Then Cells(ActiveCell.Row, 1).Font.Size = 14
If OptionButton2 Then Cells(ActiveCell.Row, 1).Font.Size = 20
Unload Me
End Sub