Eu tenho esse código. É suposto para verificar se existe um arquivo e abri-lo se isso acontecer. Ele funciona se o arquivo existir e, se não existir, no entanto, sempre que eu deixar a caixa de texto em branco e clicar no botão enviar, ela falhará. O que eu quero, se a caixa de texto estiver em branco, é para exibir a mensagem de erro como se o arquivo não existisse.

Erro de tempo de execução "1004"

Dim File As String
File = TextBox1.Value
Dim DirFile As String

DirFile = "C:\Documents and Settings\Administrator\Desktop\" & File
If Dir(DirFile) = "" Then
  MsgBox "File does not exist"
Else
    Workbooks.Open Filename:=DirFile
End If