Dim FileName As String = "File.Extension" Dim NewFileName As String = IO.Path.GetFileNameWithoutExtension(FileName) MsgBox(NewFileName)