Dim filename As String = "release notes 0.9a beta.html"
Dim newString As String
newString = filename.Substring(0, filename.LastIndexOf(".") + 1)
System.Windows.Forms.MessageBox.Show( _
System.IO.Path.GetFileNameWithoutExtension("C:\\Filename.txt"))
' Displays "Filename"