Extraer archivo de una ruta

Imports System.IO

'Obtener el nombre del archivo
Dim NombreDelArchivo As String = Path.GetFileName(ruta)

'Obtener el nombre del archivo sin extesión
Dim Archivo As String = Path.GetFileNameWithoutExtension(ruta)