Question : How do I format text to diplay currency in VB?

I have a button that sends my Access report as a .pdf attachment. In the body of the email I include the total due. It gets the value form the calculated text box on the form me.text194. On the form the value is in currency, but when the email in created in displays just numbers. example $120.00 as 120. How do I format the text in VB to display me.text194 as currency?
Code Snippet: 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

Dim strBody As String
Me.clientemail = DLookup("[email]", "tblclients", "[clientid] = Parent![clientid]")
Me.usercompany = DLookup("[companyname]", "tblusersettings")
'Email Client'
strBody = "Dear valued customer," & vbCrLf & vbCrLf & _
"Below you will find your invoice, credit memo, sales receipt, or statement. If you need to remit payment, please do so at your earliest convenience." & vbCrLf & vbCrLf & _
"Thank you for your business- we appreciate it very much." & vbCrLf & vbCrLf & _
"Total Due:" & Me.Text194 & vbCrLf & _
"Sincerely," & vbCrLf & _
Me.usercompany
DoCmd.OpenReport "invoiceLH", acPreview, , "[invoiceid]=" & Me![invoiceid], acHidden
DoCmd.SendObject acSendReport, "invoiceLH", acFormatPDF, _
    "" & Me.clientemail, _
    , _
    , _
    "Notification from " & Me.usercompany, _
    "" & strBody, _
    True
Exit Sub
Error_Handle:
DoCmd.Close acReport, invoiceLH, acSaveNo
If Err.Number = 2501 Then
MsgBox "The email was canceled and has not been sent", , "Email Invoice"
Else
DoCmd.Close acReport, invoiceLH, acSaveNo
MsgBox Err.Number & Err.description
Exit Sub
Exit_Error_Handle:
    Exit Sub
End If
Open in New Window
Select All

Answer : How do I format text to diplay currency in VB?

Replace:

"Total Due:" & Me.Text194 & vbCrLf & _

with:

"Total Due:" & Format(Me.Text194, "$#,##0.00") & vbCrLf & _
Random Solutions  
 
programming4us programming4us