VB如何做到对文件只改文件名不该后缀名

我想做到VB对文件只改文件名不该后缀名，这个代码要怎样实现，如 某个文件夹里有个66.mp3 文件 我要直接把他改为张三 前提是不知道文件夹里的名字 只知道是一个MP3 把这个功能添加到下面的代码中
On Error Resume Next
cdlTest.CancelError = True
cdlTest.DialogTitle = "视频文件"
cdlTest.FileName = App.Path
cdlTest.DefaultExt = "mp4视频(.MP4)|*.MP4"
cdlTest.Filter = "mp4视频(.MP4)|*.MP4|wav视频(.wav)|*.wav|3gp视频(.3gp)|*.3gp|所有文件|*.*"
cdlTest.ShowOpen
dim a as string,b as string
a=cdlTest.filename
if a<>"" then
b=app.path & "\备份" & right(a,len(a)-instrrev(a,"\")) '得到要备份到当前程序目录下的文件名
filecopy a,b '复制该文件
endif
文件已经复制到指定的文件夹了
这里如何根据VB控件里的（Text1.text）的内容来 命名这个文件。谢谢在线等 好希望实现这个功能。
反正就是只改文件名不改后缀名

保存后缀名，修改文件名后把原先的后缀名再附加上去

name "d:\1.txt" as "d:\2.exe" 可以这样改，但是改了后缀名就不能用了。