Formatting Data in VBA

In my workbook, cells(16,6) =0.001502


The code below is returning curr_price=1.50160245635267E-03

I need the code to return 0.001502

Any suggestions would be greatly appreciated!

My code is as below

Private Sub lb_disc_Click()
Dim mcounter As Integer
Dim curr_price As Double

select_tx_dis.Value = lb_disc.Value
Worksheets("1. Discount Fees").Select
Set Z = ThisWorkbook
For mcounter = 1 To 19 Step 1
If Cells(mcounter + 15, 1) = lb_disc.Value Then
curr_price = Cells(mcounter + 15, 6)

End If
Next mcounter
tx_current_price = curr_price

End Sub

Kindly help me.