Tengo este codigo Se supone que debe comprobar si existe un archivo y abrirlo si lo hace. Funciona si el archivo existe, y si no lo hace, sin embargo, cada vez que dejo el cuadro de texto en blanco y hago clic en el botón Enviar, falla. Lo que quiero, si el cuadro de texto está en blanco es mostrar el mensaje de error como si el archivo no existiera.

Tiempo de ejecución de error "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