Formatar Variavel Currency

[slipknot]

ola galera ..eu tenho essa rotina...

Option Explicit

Private Sub cmd_mudar_tarifa_Click()
    Dim cur_nova_tarifa As Currency
    Dim bl_ok As Boolean
    
    bl_ok = False
    cur_nova_tarifa = InputBox("Digite o valor da nova tarifa.", "Nova Tarifa")
    
    While bl_ok = False
        If Len(cur_nova_tarifa) > 6 Or Len(cur_nova_tarifa) = 0 Or Not IsNumeric(Len(cur_nova_tarifa)) Then
            MsgBox "Digite a tarifa corretamente!", vbCritical + vbOKOnly, "Tarifa Incorreta"
            cur_nova_tarifa = InputBox("Digite o valor da nova tarifa.", "Nova Tarifa")
        Else
            lbl_tarifa.Caption = "R$" & Str(cur_nova_tarifa)
            bl_ok = True
        End If
    Wend
    
End Sub

mas tah dando erro....porque quando não digito nada a variavel não aceita.....e quando eu digito 4,60 ...ele mostra como 4,6 ...alguém ai sabe formatar uma currency para aceitar 2 casas decimais....e validar ela para não receber valores vazios???

abraços..

[Eddie_666]

tem uma funcao format, se não me engano seria format("string","R$###.###,##")

[Graymalkin]

Tente usar a função FormatNumber(), o segundo parâmetro é a quantidade de casas decimais.

Abraços,

Graymalkin