the legend Grand Total belongs in a label to the left of the
textbox,.
If you insist in leaving it in the textbox, use the format()
function as follows
= "Grand Total: $" & Format((NZ(DLookUp
("Payable","qPayableTotalForPayment","OwnerID
=" & tbOwnerID.Value),"")),"#,###.##")