In the General Declarations section I have...

Code:
Dim secondvalue(100)
Dim thirdvalue(100)
To fill the listboxes I do...

Code:
For x = 1 To 10
z = Format(x, "##,##0.00#")
listsecond.AddItem z
Next x

For x = 1.0 To 10 Step 0.01
z = Format(x, "##,##0.00#")
listthird.AddItem z
Next x
To perform the calculations I get the numbers by doing...

Code:
secondvalue(1) = listsecond.List(listsecond.ListIndex)
thirdvalue(1) = listthird.List(listthird.ListIndex)
And then I do the calculations...

Code:
x = secondvalue(1) * (thirdvalue(1) / 100)
y = x / 365
amountvalue = y / 86400
Thanks for the reply.