Vba comprobar si existe un archivo

vba comprobar si el archivo existe

Public Function IsFile(s)
    IsFile = CreateObject("Scripting.FileSystemObject").FileExists(s)
End Function