高手:怎么强迫shell以应用程序方式打开文本格式的文件?(可能表达不详细具体见内容)

高手:如何强迫shell以应用程序方式打开文本格式的文件???(可能表达不详细具体见内容)
有一个exe文件，为安全需要，后缀名改为txt了，用vb如何实现编写一个小程序执行该exe文件？？？？？请高人示例指点！！！
Private Sub Command1_Click() 
Name "c:\OldName.TXT" As "c:\NewName.exe" 
RetVal = Shell("c:\NewName.exe", 1) 
End Sub 
运行一次文件名就改变了啊.
shell("notepad c:\77.dat",1) //以文本方式打开77文件.
问题::



shell("?? c:\oldname.txt",1) //以应用程序打开文件能实现?????


------解决方案--------------------
粘错了应为Name "c:\NewName.exe" As "c:\OldName.TXT"