VBA DIR() Locks Directory

[MrSockpuppet]

Hello,

If I run this code:

Public Function Check_Directory(DirName As String) As Boolean
    Check_Directory = False
    
    If Dir(DirName) <> "" Then
        Check_Directory = True
    End If
    
End Function

Then it locks the directory (one listed as DirName) so that I cannot rename it and trying to enter it crashes explorer.

Any ideas?

Do I have to kill Dir or set it to nothing?

Cheers in advance
Richard