[RESOLVED] Open a common dialog box to choose a txt file to load to a listbox

Private Sub Open_Click()
'
' Requires a Microsoft Common Dialog Control drawn on the form
' Named cd
'
Dim strData As String
Dim strQ() As String
Dim intI As Integer
Dim intFile As Integer
'
' Set up the Common Dialog initial Directory
' to the application path. Filter for Text and All files
' Prompt the user to select a file
'
cd.InitDir = App.Path
cd.Filter = "Text Files(*.txt)|*.txt|All Files(*.*)|*.*"
cd.DialogTitle = "Select Question File"
cd.ShowOpen
If cd.FileName <> "" Then
    '
    ' If the user selected a file
    ' open and read the entire contents
    ' then split it into records
    '
    intFile = FreeFile
    Open cd.FileName For Input As intFile
    strData = Input(LOF(intFile), intFile)
    Close intFile
    strQ = Split(strData, vbNewLine)
    '
    ' Populate the texbox array with the questions
    ' (either the number of textboxes in the control array or
    ' number of questions, which ever is the smaller)
    '
    Do
        CustomQ(intI).Text = strQ(intI)
        intI = intI + 1
    Loop Until intI > CustomQ.UBound Or intI > UBound(strQ)
End If
End Sub