Message Box Sum Formatting

I have a message box pop up at the end of a macro I have, which gives the end user the sum of the re-formatted data.

The code works, but I am having trouble formatting the result as Currency...$100,000.00

The only thing I'm missing is the comma. I'm just trying to make it more visually friendly for the user.

Here's the code:

Sub SumAmount()

Dim d As Double
d = Application.WorksheetFunction.Sum(Range("c1", "c100000")) / 2

MsgBox "Sum of Data $" & Application.WorksheetFunction.Round(d, 2)


End Sub