Tente assim

Private Sub ComboBox1_Change()
ComboBox1.Value = Format(ComboBox1.Value, "0.00%")
End Sub

Marcelo Prudencio,

Não deu certo! Quando digito o valor na comboBox 0,50% automaticamente aparece assim: "0,00%,5"

A comboBox está codificado assim:

Private Sub UserForm_Initialize()

Dim linha As Integer

linha = 2
Do Until shtDados.Cells(linha, "F") = ""
cmb_comp.AddItem shtDados.Cells(linha, "F")
linha = linha + 1
Loop
End Sub

O código acima como se sabe busca no banco de dados e carrega na comboBox o valor. O código abaixo está conforme me indicou.

Private Sub cmb_comp_Change()

cmb_comp.Value = Format(cmb_comp.Value, "0.00%")

End Sub

Eu gostaria de formatar a comboBox nas duas opções - isto é, tanto usuário pode digitar a porcentagem ou selecionar na comboBox o valor do banco de dados.

Seria possível?

Att.

Luis Fernando