Dim d As Double
d = 3539883.99
MsgBox(d.ToString("C"))