Formato "Moneda" en TextBox y celda con Excel 2013

Te explico un poco lo que está pasando.

Cuando le aplicas el formato al texbox, entonces el dato que tienes en el texbox ya no puede ser reconocido como un valor, es decir, si pones un "5" y conviertes ese 5 a valor el resultado es un 5, pero si tienes un "5" y le aplicas el formato "$ 5", lo que tienes es un texto, si quieres convertir esto "$ 5" a valor, posiblemente te regrese un 0 o un error.

Lo que te estoy enviando es una función, para que antes de pasar el texto "$ 5" a la celda, convierta ese texto a un valor 5.

El código completo de tu formulario quedaría así:

Private Sub CommandButton1_Click()
'Mod.Por.DAM
    Cells(2, 2) = valor(TextBox1)
    Cells(3, 2) = valor(TextBox2)
    Cells(4, 2) = valor(TextBox3)
    Cells(5, 2) = valor(TextBox4)
    Cells(6, 2) = valor(TextBox5)
    Cells(7, 2) = valor(TextBox6)
    Cells(8, 2) = valor(TextBox7)
    Unload UserForm1
End Sub
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
'Mod.Por.DAM
    TextBox1 = Format(Val(valor(TextBox1)), " $ #,##0.00")
End Sub
Private Sub TextBox7_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox7 = Format(Val(valor(TextBox7)), "##.00")
End Sub
Function valor(v)
'Por.Dante Amor
    v = Replace(v, " ", "")
    v = Replace(v, "$", "")
    valor = Val(v)
End Function

Quité algunas líneas que no son necesarias.

Revisa cómo en este evento: 

   Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

También estoy utilizando la función "valor": 

   TextBox1 = Format(Val(valor(TextBox1)), " $ #,##0.00")

De esta forma cuando entres a modificar el texto, nuevamente te ponga el formato.

Prueba y me comentas.

Pasé por alto el separador de millares, si utilizas el punto como separador de millares, ej: 5.000.000,00, entonces la función de la macro debe quedar así:

Function valor(v)
'Por.Dante Amor
    v = Replace(v, " ", "")
    v = Replace(v, "$", "")
    v = Replace(v, ".", "")
    valor = Val(v)
End Function

Si por el contrario, utilizas la coma como separador de millares, ej: 5,000,000.00, entonces la función en la macro es así:

Function valor(v)
'Por.Dante Amor
    v = Replace(v, " ", "")
    v = Replace(v, "$", "")
    v = Replace(v, ",", "")
    valor = Val(v)
End Function

Saludos.Dante Amor

Recuerda valorar la respuesta.

Estimado Dante, tu propuesta funciona muy bien, sólo que me encontré ahora con otro problema, es que en el TextBox7, donde van las monedas, los centavos (ej. $ 22,60) no aparecen. Seguidamente te muestro el código adaptado; podrías ayudarme en esto?

Gracias otra vez !!!!

Private Sub CommandButton1_Click()

Dim cien, cincuenta, veinte, diez, cinco, dos, monedas As Currency
On Error Resume Next
cien = valor(TextBox1)
cincuenta = valor(TextBox2)
veinte = valor(TextBox3)
diez = valor(TextBox4)
cinco = valor(TextBox5)
dos = valor(TextBox6)
monedas = valor(TextBox7)

'On Error Resume Next

Cells(2, 2) = cien
Cells(3, 2) = cincuenta
Cells(4, 2) = veinte
Cells(5, 2) = diez
Cells(6, 2) = cinco
Cells(7, 2) = dos
Cells(8, 2) = monedas
Unload UserForm1

End Sub

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(Val(valor(TextBox1.Value)), " $ #,##0.00")
End Sub

Private Sub TextBox7_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
TextBox7 = Replace(TextBox7, ".", ",")
TextBox7 = Format(Val(valor(TextBox7.Value)), " $ #,##0.00")
End Sub

Function valor(v)
v = Replace(v, " ", "")
v = Replace(v, "$", "")
v = Replace(v, ".", "")
valor = Val(v)
End Function