Boa tarde,

Estou criando uma interface em que pego o valor total e assim que o usuário escolhe qual bandeira de cartão vai usar e dependendo do valor ele oferece as opções de parcelamento. Fiz tudo funcionar, embora esteja com problema com a formatação de uma das Textbox, a que exibiria o valor da parcela.

A exibição do valor da parcel é iniciado pela rotina quando o um Combobox é mudado:

Private Sub ComboBox1_Change()
Dim parcel As Integer
Dim vlrparcel As Double
parcel = UserForm5.ComboBox1
vlrparcel = Totped / parcel
Format(UserForm5.TextBox2.Value, "$###,##.00") = vlrparcel
End Sub

Não consigo fazer essa Textbox2 mostrar o valor como moeda, se eu deixar "Userform5.Textbox2 = vlrparcel" o valor aparece corretamente só que sem o simbolo da moeda.

Abaixo a rotina quando a userform é exibida:

Private Sub UserForm_Initialize()
Sheets("Pedido").Select
UserForm5.TextBox1 = Format(Sheets("Pedido").Range("J1048576").End(xlUp), "$###,##.00") ' inserir valor total do pedido na textbox
Totped = Sheets("Pedido").Range("J1048576").End(xlUp)  ' processo repetido para conseguir efetuar calculo, pois ao tentar fazer indicando os objetos somente (Textbox1/Combobox1) dava erro por incompatibilidade
End Sub

Abaixo o código de quando o usuário escolhe uma bandeira através da escolha de optionbuttons que carregam as parcelas na combobox.

Private Sub OptionButton1_Click()
If UserForm5.OptionButton1.Value = True Then
UserForm5.ComboBox1.Enabled = True
    If Totped > 1500 Then
        For i = 1 To 6
         UserForm5.ComboBox1.AddItem i
        Next i
        Else
        For i = 1 To 3
         UserForm5.ComboBox1.AddItem i
        Next i
        
    End If
End If
End Sub

Alguém poderia me ajudar, todo lugar e as vezes que usei sempre usei a formatação assim: "Format([oq desejo formatar], "$###,##.00"), na inicialização da userform utilizo desse mecanismo.

Obrigado pela atenção,
Att,
FJ