Outlook Client vorgang Fehlgeschglagen - Fehler im VB-Script

Vermehrt haben wir Probleme mit dem Outlook Client in unserem Unternehmen.
Beim versuch Anhänge in einer Email zu öffnen bekommen die Anwender die Fehlermeldung das ein Client Vorgang fehlgeschlagen ist. Passieren tut es bei PDF, XLS und bei DOC Dateien.
Beim durchforsten von dem INternet fand ich das unten aufgeführte Script. Leider wird ein Fehler in Zeile 10 ausgegeben, welche ich nicht nach vollziehen kann...
Villeicht kann einer von euch mal drüber schauen und erkennt auch den Fehler, ich selbst bin kein Programmierspezi...

Sorry für die Formatierung, war schon lange nicht mehr auf dieser Platform, wo sich ja alles geändert hat.

Option Explicit
Private Sub Application_Quit()

' =====================================================================
' Löscht den Inhalt des OLK-Ordner beim Beenden von Outlook
'=====================================================================


Dim objFSO As Object
Dim objWsh As Object
Dim objFolder As Object
Dim strRegKey As String
Dim strOLK As String

On Error Resume Next

'---------------------------------------------------------------------
' Um Daten aus der Registrierung zu lesen
'---------------------------------------------------------------------
Set objWsh = CreateObject("WScript.Shell")

'---------------------------------------------------------------------
' Schlüssel zusammenstellen
'---------------------------------------------------------------------
strRegKey = "HKCU\Software\Microsoft\Office\%.0\Outlook\Security\OutlookSecureTempFolder"

'---------------------------------------------------------------------
' OLK-Ordner aus der Registrierung auslesen
'---------------------------------------------------------------------
Select Case Left(Outlook.Version, 2)
Case "9.": strOLK = objWsh.RegRead(Replace(strRegKey, "%", "9"))
Case "10": strOLK = objWsh.RegRead(Replace(strRegKey, "%", "10"))
Case "11": strOLK = objWsh.RegRead(Replace(strRegKey, "%", "11"))
Case "12": strOLK = objWsh.RegRead(Replace(strRegKey, "%", "12"))
Case "14": strOLK = objWsh.RegRead(Replace(strRegKey, "%", "14"))
Case Else
MsgBox "Kann Outlook-Version nicht bestimmen.", vbCritical + _
vbOKOnly, "Delete OLK"

Exit Sub
End Select

'---------------------------------------------------------------------
' VBA bietet keine komfortable Möglichkeit, um Dateien zu löschen,
' daher wird VB-Script verwendet.
'---------------------------------------------------------------------
Set objFSO = CreateObject("Scripting.FileSystemObject")

'---------------------------------------------------------------------
' Alle Dateien im OLK-Ordner löschen (True = Löschen erzwingen)
'---------------------------------------------------------------------
Call objFSO.DeleteFile(strOLK & "*.*", True)

'---------------------------------------------------------------------
' OLK-Ordner refernzieren
'---------------------------------------------------------------------
Set objFolder = objFSO.GetFolder(strOLK)

'---------------------------------------------------------------------
' Ist etwas übrig geblieben, dann Ordner öffnen
'---------------------------------------------------------------------
If objFolder.Files.Count Then Call Shell("explorer.exe " & strOLK)

'---------------------------------------------------------------------
' Clean Up
'---------------------------------------------------------------------
Set objFolder = Nothing Set objFSO = Nothing Set objWsh = Nothing

End Sub