Añade la siguiente referencia a tu proyecto:
Microsoft Scripting Runtime
Utiliza la siguiente función:
Function File_Exist(PathFile as string) As Boolean
Dim File As New FileSystemObject
If File.FileExists (PathFile) Then
Msgbox ("El fichero existe")
File_Exist = True
Else
Msgbox ("El fichero no existe")
File_Exist = False
End If
End Function
A la función la llamarías de la siguiente forma, ej:
value = File_Exist("D:Rober_prueba.txt")
Espero que te sirva de ayuda.
Saludos.
