VBScript Fehler mit If OK dann beenden Else Installation starten

Dim oFSO, oApp, oFolderCopy, oShell
Dim strFontsPath, strScriptPath
 
Set oFSO = CreateObject("Scripting.FileSystemObject")  
Set oShell = CreateObject("WScript.Shell")  
Set oApp = CreateObject("Shell.Application")  
 
strScriptPath = WScript.ScriptFullName
strScriptPath = left(strScriptPath,instrrev(strScriptPath,"\"))  

strFontsPath = oShell.ExpandEnvironmentStrings("%WINDIR%") & "\Fonts"  
 
Set oFolderCopy = oApp.Namespace(strScriptPath & "FontsToInstall")  
 
For Each oFont In oFolderCopy.Items

IF oFSO.FileExists(strFontsPath & "\" & oFont.Name) Then End If  
Else
  oApp.Namespace(strFontsPath).CopyHere oFont
End If

Next
 
' Cleanup Objects  
Set oFolderCopy = Nothing
Set oApp = Nothing
Set oShell = Nothing

Mein Problem liegt beim Punkt: 

IF oFSO.FileExists(strFontsPath & "\" & oFont.Name) Then End If  
Else
  oApp.Namespace(strFontsPath).CopyHere oFont
End If

Egal was ich mache, es kommt immer eine Fehlermeldung. 

Und wenn ich es nicht beende, dann wird der User 500x gefragt, ob er die Schriftart ersetzen will, weil es diese schon hat. 

Ich bitte um Hilfe, da ich mich mit VB überhaupt nicht auskenne. 

Es sollte so aussehen:

IF Schriftart vorhanden THEN beende die Abfrage
ELSE
installiere die Schriftart. 
END If