hello, i have been trying to figure out why this isn't working, first i tried and give the user a choice to enter how many "dimensions" they wish to have(well i said, enter amount of Cd Titles you wish to enter) well the THing is i'm trying to make is a simple app, that keeps track of cds u have...and so far i've been messing aroundand i can't find out what to do now....here is my code:
[/code]
Dim CdArray()
Option Explicit

Private Sub Command1_Click()
Dim CdTitles


Do
CdTitles = InputBox("Enter Cd Titles")
ReDim CdArray(1 To CdTitles)
lst1.AddItem (CdTitles)
Loop While CdTitles <> ""

End Sub
[/code]

and it doesn't seem tow ork says, Type mismatch, can someoen plesae tell me what i'm doing wrong? thanks for listening!