今クイズのプログラムを作ってて、全部クイズが終わった後に結果出力を
指定のフォルダのテキストファイルを作りたい場合、
どのようなプログラムにすればいいのでしょうか？
過去ログから自分なりにつくってみましたが、手直しお願いいたします。
（たくさんあると思いますが）

プログラムが"C:\Program Files\MyProg"にあって
C:\Program Files\MyProg\shousai\index.txt"にファイルを作成したい
しようと思っています。

Private Sub command1_Click()

Dim intFileNum As Integer
Dim strFullPath As String 'フルパス
Dim strSoutaiPath As String '相対パス

strSoutaiPath = "\shousai\index.txt"
strFullPath = App.Path & strSoutaiPath

intFileNum = FreeFile()
Open strFullPath For Output As #intFaileNum

Print #1, "詳細出力"
Print #1, "クイズ正答率" & seitouritu & "％"
Print #1, "正解数" & seikaisuu & "問"
Print #1, "問題数" & mondaisuu & "問"
（中略）
Close #1

End Sub