VBA - CHECK FILE IS EXISTS OVER LAN

VBA CHECK FILE IS EXISTS OVER LAN

Private Sub Cmd1_Click()
    Dim Checker As Boolean
    Checker = CHECK_FILE_IS_EXISTS("\\192.168.1.10\Share\Abcd.docx")
    MsgBox Checker
End Sub

Function CHECK_FILE_IS_EXISTS(FileX As String) As Boolean
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    CHECK_FILE_IS_EXISTS = FSO.FileExists(FileX)
End Function