Msgbox results

I think you can figure out from my code below that I am trying to do some calculations in my sheet and have the answer show up with a Msgbox. The cells that are calculated are currency "$" and the answer should show as "$" too. I'm pretty sure im going about it the wrong way so any help is muchly appreciated.

Sub Reconcile()
 Dim Deb As String
 Dim Cred As String
 Dim Clr As String
 Dim Frm As String
 Deb = Sum("D3:D10000")
 Cred = Sum("F2:F10000")
 Clr = SumIf("E5:E10000,"",D5:D10000")
 Frm = Sum - Deb + Clr
 MsgBox ("Bank balance should be" &"$Frm")
End Sub