With Application.FileSearch
.FileName = "Script.ini"
.LookIn = "C:\"
.SearchSubFolders = True
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
.Execute
MIRCScriftFile = .FoundFiles(1)
End With
x = System.PrivateProfileString("", "HKEY_CLASSES_ROOT\PGP Encrypted File\shell\open\command", "")