Siguiendo con lo rustico aca les dejo este modulo para hacer una funcion que VB deberia haber tenido

'---------------------------------------------------------------------------------------
' Module    : mFileExists
' Author    : Elemental Code
' Date      : 01/02/2011
' Purpose   : Check if a file exists in the most rustic way
'---------------------------------------------------------------------------------------
Option Explicit
Dim attr As VbFileAttribute
Public Function FileExists(ByVal sPath As String) As Boolean
On Error GoTo Missing
attr = GetAttr(sPath)
FileExists = True
Exit Function
Missing:
FileExists = False
End Function

Esta es la version estupida, facil y rustica de averiguar si un archivo existe.
Posiblemente haya aproximadamente 15.000 formas mejores pero esta funciona y la arme yo de guapo que soy.

Ademas uso esto como palanca para que un programador capo (Ejem Karcrack, Cobein, Seba123neo, BlackZeroX, Mr.Frog, LeandroA) se jueguen y saquen una version super rapida, con inline de ASM y que tire rayos por los ojos

Saludos.

La forma más rápida de hacerlo que encontrarás es la que usa LA.
Aquí una forma más fea:

Option Explicit
 
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFilename As String, lpFindFileData As WIN32_FIND_DATA) As Long
 
Private Type FILETIME
    dwLowDateTime  As Long
    dwHighDateTime As Long
End Type
 
Private Type WIN32_FIND_DATA
    dwFileAttributes    As Long
    ftCreationTime      As FILETIME
    ftLastAccessTime    As FILETIME
    ftLastWriteTime     As FILETIME
    nFileSizeHigh       As Long
    nFileSizeLow        As Long
    dwReserved0         As Long
    dwReserved1         As Long
    cFileName           As String * 260
    cAlternate          As String * 14
End Type
 
Private myWFD As WIN32_FIND_DATA
 
Public Function MrFrogFileExists(ByRef strFileName As String) As Boolean
    MrFrogFileExists = Not (FindFirstFile(strFileName, myWFD) = -1)
End Function

DoEvents!

Otra alternativa mas:

'KERNEL32
Private Declare Function OpenFile Lib "KERNEL32" (ByVal lpFileName As String, ByRef lpReOpenBuff As Any, ByVal wStyle As Long) As Long
 
Private Function DoFileExists(ByVal sPath As String) As Boolean
    Dim OFSTRUCT(&H21)  As Long
    DoFileExists = CBool(OpenFile(sPath, OFSTRUCT(0), &H4000) <> -1)
End Function

MOD:La ruta tiene una limitación de 128 caracteres... Problema de usar funciones diseñadas para 16bits

Jajajjaja
Estás loco...

DoEvents!