salvo errori di bug ho risolto cosi e sembra funzionare, se qualcuno ha dei consigli o nota degli errori segnalatemeli grazie
me.totaled è un campo non associato formato standard con 2 decimali
Dim importo
importo = Format(Me.totaled, "currency")
importo = ReplaceString(importo, ".", "-")
importo = ReplaceString(importo, ",", ".")
importo = ReplaceString(importo, "-", ",")
If importo >= 0 Then
Me.totaled = "$ " & Left(importo, Len(importo) - 2)
Else
Me.totaled = "-$ " & Left(importo, Len(importo) - 2)
End If