Quiero que en mi userform en uno de sus textbox me muestre contenido de celda con formato % a través del llamado de un combobox

He colocado el codigo dentro del textbox de esta forma pero al momento de editarlo de borrar contenido para editarlo se va extendiendo el valor y no me deja..

Como puedo corregir esto.?

Private Sub TextBox8_Change()
TextBox8.Text = Format(TextBox8.Text, "0%")
End Sub

_______________________________________________________________________________________________________

Private Sub ComboBox1_Change()

Dim Fila As Integer
Dim Final As Integer

If (ComboBox1) = "" Then
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
ComboBox2 = ""
End If

For Fila = 6 To 55
If Hoja3.Cells(Fila, 1) = "" Then
Final = Fila - 1
Exit For
End If
Next

For Fila = 6 To Final
If Val(ComboBox1.Value) = Hoja3.Cells(Fila, 1) Then
TextBox2.Text = Hoja3.Cells(Fila, 2)
TextBox3.Text = Hoja3.Cells(Fila, 3)
TextBox4.Text = Hoja3.Cells(Fila, 4)
TextBox5.Text = Hoja3.Cells(Fila, 5)
TextBox6.Text = Hoja3.Cells(Fila, 6)
TextBox7.Text = Hoja3.Cells(Fila, 7)
TextBox8.Text = Hoja3. Cells(Fila, 8) >>> esta es la linea que me muestra que hace el llamado a mi textbox
TextBox9.Text = Hoja3.Cells(Fila, 9)
TextBox10.Text = Hoja3.Cells(Fila, 15)
ComboBox2 = Hoja3.Cells(Fila, 10)
Exit For
Else
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
ComboBox2 = ""
End If
Next
End Sub