currency format 2

[bjarvis]

I am trying to make the format in text1 currency. Here's my code any help would be appreciated.

Private Sub Command1_Click()
On Error Resume Next
Dim AnhCost As Currency, AnhRate As Integer
AnhCost = InputBox$("Enter the cost of ahydrous.", "Anhydrous Cost&quot
AnhRate = InputBox$("Enter the rate of anhydrous per acre.&quot
Text1.Text = (AnhRate \ 0.82) * AnhCost
End Sub

 

[zlovelife]

Try this

Private Sub Command1_Click()
On Error Resume Next
Dim AnhCost As Currency, AnhRate As Integer
AnhCost = InputBox$("Enter the cost of ahydrous.", "Anhydrous Cost&quot
AnhRate = InputBox$("Enter the rate of anhydrous per acre.&quot
Text1.Text = format((AnhRate \ 0.82) * AnhCost,"Currency&quot
End Sub


Pete
_____________
Real programs don't eat cache