Os valores inseridos manualmente com símbolos R$ na Text Box têm que ser convertidos antes para Currency:

Worksheets(1).Range("b1").Value = CCur(UserForm1.TextBox1.Text)

Já os valores inseridos manualmente com símbolo de % na Text box podem ser usados diretamente

Worksheets(1).Range("b2").Value = UserForm1.TextBox2.Text

Lembre-se de formatar a célula para exibir corretamente os valores.

Olá,

Muito obrigado pela ajuda, o problema com o sinal de R$ foi resolvido

Com relação ao sinal de %, eu estou com um pequeno problema

A formatação na planilha para receber o sinal de % está correta.

Veja o que acontece:

se no campo da userform eu digitar 1, na planilha é preenchido com 100%

se no campo da userform eu digitar 1 mais o sinal de %, na planilha é preenchido com 1% (para preencher na planilha corretamente eu preciso digitar o sinal de % na userform).

tem como resolver isso ou para que apareça 1% na planilha, eu vou ter que sempre digitar o sinal de %

Desde já agradeço pela atenção de todos.

muito obrigado!

Não é necessário digitar.
Ao passar o dado para planilha use o sinal de porcentagem. Exemplo:

range("a1").value = textbox1.text & "%"

fica assim?

Worksheets(1).Range("b2").Value = textbox1.text & "%"

para inserir o sinal de porcentagem automaticamente ??

Deve ficar assim por exemplo:

Private Sub CommandButton1_Click()
Planilha1.Range("b2").Value = TextBox1.Text & "%"
End Sub

att

Lustosa