问VB脚本If then End语句

EN

Option Explicit

Public OpenedWB

Dim valueEntered, fileCount
Dim userResponse
Dim NewWB, NewWS
Dim i
Dim OpenedWBName
Dim Found
Dim FSO, txtFILE
Dim HostFolder
Dim dApproved, dPrepared, filearray()
Dim xlApp
Dim xlCalculationManual
Dim xlCalculationAutomatic, msoFileDialogFolderPicker, msoFileDialogViewSmallIcons

xlCalculationManual = -4135: xlCalculationAutomatic = -4105
msoFileDialogFolderPicker = 4: msoFileDialogViewSmallIcons = 7

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True

Set NewWB = xlApp.Workbooks.Add
NewWB.Windows(1).Visible = True
Set NewWS = NewWB.Worksheets.Add

Set FSO = CreateObject("Scripting.FileSystemObject")

With xlApp
    .ScreenUpdating = False
    .EnableEvents = False
    .Calculation = xlCalculationManual
End With

i = -1

'UI (Dynamic) Directory
With xlApp.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
    .Title = "Select the folder to scan through sub-folders"
    .ButtonName = "Select this folder!"
    .InitialFileName = _
        "\\..somepath"
    .InitialView = msoFileDialogViewSmallIcons
    If .Show <> i Then End  'This is throwing an error (Expected statement error)
    HostFolder = .SelectedItems(1)
End With