Como buscar archivos en visual basic

Así esta mi programa pero no logro que me regrese todo los archivos que existen solo el primero y ya no sigue buscando...
Podrías decirme como le puedo hacer para que me regrese todos y no solo uno
gracias...
Option Explicit
Private Declare Function SearchTreeForFile Lib "imagehlp" ( _
ByVal RootPath As String, _
ByVal InputPathName As String, _
ByVal OutputPathBuffer As String) As Long
Private Const MAX_PATH = 260
Private Sub Command1_Click()
On Error GoTo Error_Sub
Dim temp As String, Ret As Long
Me.MousePointer = vbHourglass
temp = String(MAX_PATH, 0)
Ret = SearchTreeForFile(Text1, Text2, temp)
If Ret <> 0 Then
MsgBox "Archivo encontrado en: " + Left$(temp, InStr(1, _
temp, Chr$(0)) - 1), vbInformation
Else
MsgBox "Archivo no encontrado", vbInformation
End If
Me.MousePointer = 0
Exit Sub
Error_Sub:
MsgBox Err.Description, vbCritical
Me.MousePointer = 0
End Sub
Private Sub Form_Load()
Command1.Caption = " Buscar "
Text1 = "c:\"
Text2 = "*.txt"
End Sub