Formatação em textbox no formato porcenagem

[felipe silva dos santos]

Bom dia galera, 

 

Preciso de uma ajuda de vocês.

 

Hoje me deparei com um problema no sisteminha que fiz em excel vba.

Bem vamos lá...

 

Tenho um userform onde digito algumas informações que depois são armazenas em um certo "banco de dados", bem em uma das textbox eu preciso digitar um carto valor em formato de porcentagem para que no meu banco de dados fique salvo no formato porcentagem pois nesse formato vou utilizar em uma outra planilha esses dados. Pois bem no momento estou utilizando o seguinte código de formatação: 

 

Private Sub TexTbox11_change()
Me.TextBox11.Value = Format(Val(TextBox11.Value) / 100, "#,##%")
TextBox11.SelStart = Len(TextBox11.Value) - 1
End Sub

 

Bem até ai beleza, eu consigo digitar um numero na textbox11, porém ao digitar um valor: por exemplo: 0,75%, a testbox não permite, só consigo digitar números inteiros no caso de 0 a 99%.

quando eu preciso digitar um valor menor entre "0 e 1, exemplo 0,75%" eu não consigo.

 

Já tentei o código:

 

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

e

Private Sub TexTbox11_change()
Me.TextBox11.Value = Format(Val(TextBox11.Value) / 100, "0,00%")
TextBox11.SelStart = Len(TextBox11.Value) - 1
End Sub

Só que até agora não consegui nada!

 

Se alguém puder me da essa força eu agradeço desde então...

 

Abraço!!!