Boa tarde!

Veja se ajuda:
https://cse.google.com.br/cse?cx=partne ... gsc.page=1
Att

Boa tarde!

Veja se ajuda:
https://cse.google.com.br/cse?cx=partne ... gsc.page=1
Att

Usei isso e deu certo aqui

Private Sub TextBox297_Change()

TextBox297 = Format(Range("L15"), "0.00%")
End Sub

Quanto a outra pergunta, pesquisando achei isso abaixo, mas nao esta aparecendo o R$.

Option Explicit
Dim n1 As Single
Dim n2 As Single

Private Sub TextBox1_Change()

 '   TextBox1 = Format(TextBox1, "R$ #,##0.00")

If TextBox1 = "" Then
TextBox1 = 0
Else: End If
n1 = CSng(TextBox1.Text)
TextBox1 = CSng(n1)
End Sub

Private Sub TextBox2_Change()

  '  TextBox2 = Format(TextBox2, "R$ #,##0.00")

If TextBox2 = "" Then
TextBox2 = 0
Else: End If
n2 = CSng(TextBox2.Text)
TextBox2 = CSng(n2)
Soma
End Sub

Private Sub Soma()
Dim n3 As Single

  '  Label1 = Format(Label1, "R$ #,##0.00")

If TextBox2 = "" Then
Me.Label1.Caption = ""
Else: End If
n3 = Format(n1 - n2)
Me.Label1.Caption = "Total" & " =   " & n3
End Sub

Boa tarde!!

esse código funciona, mas quanto a sua adaptação, faça seus testes.

Private Sub TextBox1_Change()
'formato moeda no TextBox
'Fonte: http://excelevba.com.br/formato-moeda-no-textbox-enquanto-digita/
valor = TextBox1.Value
    If IsNumeric(valor) Then
    If InStr(1, valor, "-") >= 1 Then valor = Replace(valor, "-", "")       'retira sinal negativo
    If InStr(1, valor, ",") >= 1 Then valor = CDbl(Replace(valor, ",", "")) 'retirar a virgula
    If InStr(1, valor, ".") >= 1 Then valor = Replace(valor, ".", "")       'para trabalhar melhor retiramos ponto
        Select Case Len(valor)                                              'verifica casas para inserção de ponto
        Case 1
            numPonto = "00" & valor
        Case 2
            numPonto = "0" & valor
        Case 6 To 8
            numPonto = Left(valor, Len(valor) - 5) & "." & Right(valor, 5)
        Case 9 To 11
            numPonto = inseriPonto(8, valor)
        Case 12 To 14
            numPonto = inseriPonto(11, valor)
        Case Else
            numPonto = valor
        End Select
        numVirgula = Left(numPonto, Len(numPonto) - 2) & "," & Right(numPonto, 2)
        TextBox1.Value = numVirgula
    Else
        If valor = "" Then Exit Sub
            MsgBox "Número invalido", vbCritical, "Caracter Inválido"
        Exit Sub
    End If
End Sub


Function inseriPonto(inicio, valor)
i = Left(valor, Len(valor) - inicio)
M1 = Left(Right(valor, inicio), 3)
M2 = Left(Right(valor, 8), 3)
F = Right(valor, 5)
    If (M2 = M1) And (Len(valor) < 12) Then
        inseriPonto = i & "." & M1 & "." & F
    Else
        inseriPonto = i & "." & M1 & "." & M2 & "." & F
    End If
End Function

Att

Desculpe mas nao consegui fazer, segue um exemplo. Seria possivel uma ajuda ?

Andre

Ola resolvi aqui

Private Sub TextBox291_Change()

If TextBox291 = "" Then
TextBox291 = 0
Else: End If
n2 = CSng(TextBox291.Text)
TextBox291 = CSng(n2)
Soma
End Sub

Private Sub Soma()
Dim n3 As Single

If TextBox291 = 0 Then
TextBox298 = ""
Else

n3 = Format(n1 - n2)
Me.TextBox298 = "R$ " & -n3        '   "Total" & " =   " & n3
End If

End Sub