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?
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: