FileExists in Excel for mac 2016 VBA

FileExists.vba

Function FileExists(ByVal AFileName As String) As Boolean
    On Error GoTo Catch

    strFile = Dir(AFileName, MacID("TEXT"))

    FileExists = True

    GoTo Finally

Catch:
        FileExists = False
Finally:
End Function

usage.vba

If FileExists("Macintosh HD:Library") Then
    MsgBox "File exists"
Else
    MsgBox "File doesn't exists"
End If