VB生成TXT或HTML后如果调用插件对生成的文本加密


Private Sub Command1_Click()
Open App.Path & "/结果.htm" For Append As #1
Print #1, Label1.Caption + Text1.Text + Label2.Caption
Close #1
MsgBox "生成完毕",
End Sub

以上是我 使用的生成代码
假如程序目录内有个 1.exe（加密程序）
我该如果让程序生成结果.htm后在调用1.exe对 结果.htm 进行加密