I couldn't post this code because of the restrictions of the succuri firewall.
I had to insert an underscore in line 1 to let it pass:
Can someone ignite the 'technicians' ?

Private Sub CommandButton1_Click()
  sn=split(createobject("wscript.shell").e_xec("cmd /c Dir C:\Users\VS\Desktop\test\*.docx /b /s").stdout.readall,vbcrlf)
  c00=filter(sn,Sheets("Look").columns(1).Find(InputBox("filename"), , ,1).offset(,1))(0)
  
  with getobject(c00)
    .windows(1).visible=true

  end with
End Sub