VBにFlashを埋め込んで、Textファイルの出力に成功しました
皆様ありがとうございます。
プロジェクタをVBで作った…というような考え方になってしまいますが手順は本当に大変簡単でした。
初心者の方には参考になるかもしれませんので以下に記述します。
-----------------------------------------------------------
1.VBの[プロジェクト][コンポーネント]で"ShokwavwFlash"にチェック
2.VBのフォームに[ツールボックス]から"ShokwavwFlash"を貼り付ける
3.VBのForm_Load()に
Call ShockwaveFlash1.LoadMovie(0, filename)
と記載。Filenameは必ずswfファイルのフルパスであること。
4.swfファイルのアクションに
　fscommand("OutputText","nonmsg")と追加してパプリッシュ
5.VBにて
Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)
Select Case command
Case "OutputText"
Open App.Path & "\ファイル.txt" For Output As #1
Print #1, args
Close #1
End Select
End Sub

実行すると、swfのアクションを実行したときに"ファイル.txt"に"nonmsg"と書き込まれます。
-----------------------------------------------------------
以上です。
また別件でもお世話になると思いますのでよろしくお願いします。