Imports System

Public Module Module1

    Public Sub Main()

        Dim fileName As String = "C:\Test\Path\testfile.extension" 

        Dim result As String = System.IO.Path.GetFileNameWithoutExtension(fileName) 

        Console.WriteLine("GetFileNameWithoutExtension({0}) returns '{1}'", filename, result) 

    End Sub

End Module