Чтение файлов формата "tmp" - VB

Формулировка задачи:

У меня есть программа которая создаёт в папке "report" файлы формата tmp со случайным именем. Например IniDADA.tmp или IniB467.tmp. В них хранится текст. Мне надо сделать программу которая считает все эти файлы в этой папке и выведет в textbox.

Сделал через диалоги, чтобы пользователь сам выбрал файл в папке. Как сделать чтобы файл открылся? выдаёт ошибку "object required".

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
CD1.InitDir = "D:\report\"
CD1.ShowOpen 
Text1.Text = CD1.FileName 
End Sub
 
Private Sub Form_Load()
CD1.Filter = "Tepro|*.tmp" 
End Sub

Решение задачи: «Чтение файлов формата "tmp"»

textual
                            Листинг программы 
                        
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub Command2_Click()
 
ShellExecute Me.hwnd, vbNullString, "D:\report\", vbNullString, "D:\report\", SW_SHOWNORMAL
 
End Sub