Sub ファイルがあるか確認チェックする()
    
    '確認したいファイルをフルパスで指定する
    確認したいファイル = Dir("C:\test\test.txt")
    
    If 確認したいファイル <> "" Then

        MsgBox 確認したいファイル & " ファイルがあります"
        
    Else
    
        MsgBox 確認したいファイル & " ファイルがありません"
        
    End If

End Sub