كود التأكد من وجود ملف

ضع الكود في الفورم 

Private Sub Command1_Click()

On Error GoTo Error:

Open "ضع هنا مسار الملف الذي تريد التأكد من وجوده" For Input As #1

Close

MsgBox ("الملف موجود")

Exit Sub

Error:

MsgBox ("الملف غير موجود")

End Sub