Windows XP Listbox with 3 columns, cutting formatted value

Joined
Jul 7, 2015
Messages
1
Reaction score
0
I have a listbox with 3 columns. When I add an item (for test only) it cuts the value in the 3 fields instead of showing 3 values.
Code:

Private Sub Test_Click()

Dim varDbl As Double
Dim varInt As Integer
Dim varStr As String

varDbl = 12345678.12
varStr = Format(varDbl, "##,###,##0.00")
lbox_test.RowSourceType = "value List"
lbox_test.AddItem varStr & ";" & varStr & ";" & varStr

End Sub
Listbox shows 12 345 678.12 in the 3 fields and in 3 rows.

What is wrong in the code?
 
Last edited:

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top