Carry Values Right Of Decimal Pt to Another Location

[bdb1974]

Hi all,

I've got another burdening issue that I can't seem to figure out.
I've got a ListBox with values containing decimals like (1.7, 2.55)
For some reason the fractional value to the right of the decimal point is being dropped off
when I try to make a textbox value equal the selected listbox value. This is within a userform or even trying to carry the value to a textbox on different userform.

Any help resolving this is appreciated.

Thanks,

BDB

[davegugg]

Do you have your format on the destination textbox set to show decimals?
If you're using a variable, is it a double instead of integer or long?

[bdb1974]

Here's something that I have tried but with no luck.

Please Login or Register  to view this content.

[bdb1974]

Ok, this works. I had some other code preventing if from running.

Private Sub ListBox1_Click()
Dim LValue As String
With Me.ListBox1
LValue = Format(.Value, "##.##")
Me.TextBox1.Value = LValue
End With
End Sub

Thanks for the reply DaveGugg

BDB