تعیین پیام برای جلوگیری از نمایش پیغام خطا در Syntax

[look20]

با سلام و خسته نباشید ببخشید آیا میشه بجای اینکه یه پیام خطا در اجرای سینتک نمایش داده بشه پیام دلخواه قرار داد البته کد ارور نمیده و خطای سینتک میده

[Babak.Hassanpour]

بفرما دوست من:


Private Sub Form_Load()
On Error GoTo ErrorHandler
Open App.Path & "\1\1.txt" For Random As #1
Close #1


ErrorHandler:
Select Case Err.Number
Case 76
MsgBox "مسیر فایل موجود نیست یا یه چیزی توی این مایه ها"
End Select

End Sub
Select Case Err.Description
Case "Path not found"
MsgBox "مسير يافت نشد"
End Select