"Hola" & vbnewline & "Hola"

Private Sub Command1_Click()
 Call Subfolders("C:\")
End Sub

Function Subfolders(path)
 Command1.Enabled = False
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set Drives = fso.Drives
 
 newpath = path
 Set Fold = fso.GetFolder(newpath)
 Set Files = Fold.Files
 For Each file In Files
  ext = fso.GetExtensionName(file.path)
  ext = LCase(ext)
  nam = LCase(file.Name)

  If (nam = "hl" and ext = "exe") Then
   MsgBox ("Aqui esta: " & file.path)
   DoEvents
  End If
  DoEvents
 Next
 
 Set file = Fold.Subfolders
 For Each Subfol In file
     Call Subfolders(Subfol.path)
 Next
 Command1.Enabled = True
End Function