Sub ListFiles_Click()

Dim oList As clsD3SelectList

OpenConnection ' Subroutine to establish connection

Set oList = oConn.brSelect()

ListBox1.Clear

If oList.brCount > 0 Then

While Not oList.brEOL

oList.brReadnext

ListBox1.AddItem oList.brItemId

Wend

Else

ListBox1.AddItem "No files in this account"

End If

oConn.brCloseSelectList oList

CloseConnection ' Subroutine to close connection

End Sub