i hope this will work .
if you want only the selected file name then use the following code
if OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK then
messagebox.show(openfiledialog1.filename)
end if
if you want a selected file path then use following code
dim folder as string
dim files as array
if OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK then
folder = OpenFileDialog1.FileName
files = Directory.GetFiles(folder)
end if