Как проверить наличие файла?

If Dir("C:\Users\мвидио\Desktop\VBA\txt\123.txt") = "" Then
msgbox "Файла нет"
Else
msgbox "Файл есть"
End if

Dim fso as object, Path  as string
 
Set fso = CreateObject("Scripting.FileSystemObject")
Path = "C:\Users\мвидио\Desktop\VBA\txt\123.txt"
 
    If fso.FileExists(Path) Then
        MsgBox "Файл присутствует"
    Else
        MsgBox "Файла нет"
    End If

Sub test1()
   Dim fileN As String
 
   fileN = "D:\KW\Reestr\IterPara.txt"
   If Dir(fileN, vbHidden) <> "" Then MsgBox fileN & " существует"
End Sub

Sub test2()
   Dim oFSO As Object, oFolder As Object, oFile As Object
 
   Set oFSO = CreateObject("Scripting.FileSystemObject")
   Set oFolder = oFSO.GetFolder("D:\KW\Reestr")
 
   For Each oFile In oFolder.Files
     If oFile.Attributes And 2 Then
         MsgBox oFile.Path & " is Hidden"
     End If
   Next
End Sub