I read the files from vb,
How to pop up the messagebox when the files not found?

Code:
Dim txtVar1 As String
Open App.Path + "\Data.txt" For Input As #1
Input #1, txtVar1
Close #1