Here is my code:
Expand|Select|Wrap|Line Numbers
- Dim sngMulti(10) As Currency
- ' Fill array with values.
- For intJ = 1 To 10
- Calc = FormatCurrency((Calc * txtExponent), 2)
- sngMulti(intJ) = Calc
- Debug.Print FormatCurrency(sngMulti(intJ), 2)
- lstCalc_Results.AddItem intJ & ";" & sngMulti(intJ)
- Next intJ
I use the ReDim because eventually the lstbox items will be dynamic.