Проверить, существует ли файл с помощью VBA

Sub test()

thesentence = InputBox("Type the filename with full extension", "Raw Data File")

Range("A1").Value = thesentence

If Dir("thesentence") <> "" Then
    MsgBox "File exists."
Else
    MsgBox "File doesn't exist."
End If

End Sub

В этом случае, когда я беру текстовое значение из поля ввода, оно не работает. Однако, если удалить "the sentence"из If Dir()и заменить его фактическим именем в коде, это сработает. Кто-нибудь может помочь?