将aaa.txt文档随主程序一同打包生成exe安装文件，应怎样做？

主程序中有一个名为：aaa的txt文档，点击按钮Command1_Click（）则显示aaa文档内容,现将aaa.txt文档随主程序一同打包生成exe安装文件，应怎样做，谢谢！

Private Sub Form_Load()
FileCopy App.Path & "\aaa.txt", App.Path & "\aaa_copy.txt"
End Sub

Private Sub Command1_Click()
CreateObject("wscript.shell").run "aaa.txt"
End Sub