Spm. vedr FileName.Delete

Jeg har lavet nedenstående funktion, fordi jeg skal kopiere en masse filer. Funktionen fungere fint men, hvis den fil, som skal kopieres, er åben et andet sted fejler FileName.Delete kommandoen(og det er sådan set fint nok).

Hvordan undersøger jeg om en fil kan slettes inden jeg forsøger at slette den?

Og hvorfor hopper funktionen ikke videre til errHandler når det først går galt?

Function filFlyt(institution As String, pollAuto As String)
On Err GoTo errHandler
   
    Dim fso As FileSystemObject
    Dim filnavn As String
    Dim filer As String
    Dim tid As String
   
    Err
   
    tid = Hour(Time())
   
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set myFolder = fso.GetFolder(institution)
    Set MyFolderFiles = myFolder.Files
    For Each FileName In myFolder.Files
        If (Hour(Time()) >= 8) And (Hour(Time()) < 17) Then
            If (fso.GetExtensionName(FileName) = "pdf") And (FileName.Size < "400000") Then
                fso.CopyFile institution & FileName.Name, pollAuto & FileName.Name, True
                Call log(FileName.Name, institution, "")
                FileName.Delete
            End If
        Else:
            If fso.GetExtensionName(FileName) = "pdf" Then
                fso.CopyFile institution & FileName.Name, pollAuto & FileName.Name, True
                Call log(File.Name, institution, Err.Description)
            End If
        End If
    Next
    Set fso = Nothing
    vælgFolder (institution)
Exit Function
errHandler:
    Set fso = Nothing
    Call log("FEJL", institution, Err.Description)
    vælgFolder (institution)
End Function