VBAから、iMacrosの.iimファイルへの書き込みが上手くいきません

Question

前提・実現したいこと

VBAを使い、エクセルの文字列（iMacrosのコード）を、iMacrosの.iimファイルに書き込みを行いました。

テキストエディタで見ると、書き込みができているのが確認できたのですが、
iMacros側で開けると空白でした。同じ現象が起きて解決された方はいらっしゃいますか？

実現したいのは、エクセルに書いたiMacrosのコードを．iimファイルに直接書き込み、iMacrosで実行できるようにしたいです。

プログラミングは、まったくの素人です・・。
宜しくお願いします！

該当のソースコード

Sub ﾘｽﾄｲﾝ()

Open "パス名/list01.iim" For Output As #1

Dim i As Long
Dim f As String

For i = 7 To 10000

 If Cells(i, 1).Value = "" Then 
    Exit For  
End If

If i > 7 Then
    Print #1, ""
End If


  f = Cells(i, 1).Value 
Print #1, CStr(f);
    
   

Next

Close #1

End Sub