Pasar un numero de un textbox con signo negativo

Estoy programando este botón esta es la estructura

Private Sub CommandButton1_Click()
Dim Final As Long
If Me.ComboBox1.Text = "" Or Me.ComboBox2.Text = "" Or Me.txt_Descripcion.Text = "" Or Me.TextBox2.Text = "" Or Me.TextBox3.Text = "" Or Me.TextBox4.Text = "" Or Me.TextBox5.Text = "" Or Me.Txt_Precio.Text = "" Then
MsgBox "Completar los Campos Vacios", , ""
Exit Sub
End If

Sheets("Movimientos").Select
ActiveSheet.Range("A4").Select
Selection.EntireRow.Insert

Range("A4") = Now
Range("B4") = ComboBox1
Range("C4") = ComboBox2
Range("D4") = TextBox5
Range("E4") = txt_Descripcion
Range("F4") = TextBox2
Range("G4") = TextBox3
Range("H4") = TextBox4
Range("H4") = ComboBox3
Range("I4") = Txt_Precio

                                              'If Me.ComboBox1.Text = "SALIDA" Then
                                               'Me.Txt_Precio.Text = Cells("I4").Value * -1
                                                'End If

ComboBox1 = Empty
ComboBox2 = Empty
TextBox5 = Empty
txt_Descripcion = Empty
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
ComboBox3 = Empty
Txt_Precio = Empty

End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

pero al colocar esta variable no me funciona

                                            'If Me.ComboBox1.Text = "SALIDA" Then
                                               'Me.Txt_Precio.Text = Cells("I4").Value * -1
                                                'End If

En realidad lo que quiero lograr es que si el comboBox1 es igual a SALIDA

El valor que tengo en el Txt_Precio pase a la tabla de excel con signo negativo