Recherche:

Oui en le modifiant ainsi :
Option Explicit

Dim FSO, oFolder, Fich, WS, AssocApp, objFile, strCommand, Cnt
Const Key = "HKEY_CLASSES_ROOT\txtfile\shell\open\command\", ForReading = 1, ForWriting...

Est-ce pour la modification(par le script) ou pour la lecture avec le programme associé ?

Si c'est ce dernier cas, essaie ce
Option Explicit

Dim FSO, oFolder, Fich, WS, AssocApp, objFile,...