resimden anladığım kadarıyla zaten gösteriyor
sorun ne?
atamayı aşağıdaki gibi yapmayı dener misiniz?

TextBox1 = Format(TextBox1, "#,##0.00 " & ChrW(8378))