Basic - fallo en textbox con importe total

tengo un textbox donde entro la cantidad, otro donde introduzco el precio, en otro el descuento, como es la formula para que me de el tota deducido el % de descuento
textbox2 pvp
textbox4 unidades
textbox5 %descuento
textbox6 importe total

intento hacerlo pero no me da resultado, ademas probando tan solo me da el numero entero sin decimales, gracias por vuestros aportes

Private Sub TextBox5_Change()
TextBox6.Text = (Val(TextBox4.Text) * Val(TextBox2.Text))

TextBox6.Text = Format(TextBox6, "#,##0.00 $")
End Sub

Revisa la configuración de windows con respecto al simbolo decimal

Panel de control --> Configuración regional y de idioma.

Si tienes como simbolo la coma y pones un punto no funcionan los calculos.

gracias por la respuesta, pero solucione el problema de otra forma, aqui la expongo

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
esta seria la formula para hallar el total del importe menos el descuento

Me.TextBox6.Text = Format(CDbl((Me.TextBox5) * CDbl(Me.TextBox3)) - (CDbl(Me.TextBox5) * CDbl(Me.TextBox3) * CDbl(Me.TextBox4 / 100)), "#,##0.00 €")
End Sub
aqui cambiaria directamente el . por la , al presionarla en el teclado

Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
On Error Resume Next
If KeyAscii = Asc(".") Then
KeyAscii = Asc(",")
End If
End Sub