Important Functions

    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", "")