stringsplit - get last word without extension

$hFile = FileOpenDialog("Select file", @DesktopDir, "All files (*.*)", 3)
$split = StringSplit($hFile, "\")
$display = $split[$split[0]]
MsgBox("","",$display)

Hi, I got my script to use stringsplit, to only get the name of the file that you select, the thing is, i don't want it to show the extension, so if you select ex. test.txt, it will only display: test
does someone know how that would be done with my above code?