How to get File Name from Full file Path

imports system.io

dim Filename as string = "C:\Users\Sony\Desktop\Readme.txt"
dim FileInfo as new fileinfo(filename)

'this gets the filename and extension e.g. readme.txt
messagebox.show (Fileinfo.name)

'this gets the extension
messagebox.show (Fileinfo.extension)

'this gets the directory name
messagebox.show (Fileinfo.Directory)

fileinfo = nothing 'i prefer to destory objects rather than waiting for the garbage collector