outputを行うとそれまでのデータが消えてしまいます。
Private Sub Command2_Click()


   Dim iFile As Integer

  
   iFile = FreeFile
    
   Open "C:\Documents and Settings\USER\デスクトップ\JIGYOSHO.csv" For Output As #iFile
   Print #iFile,
   Close #iFile
End Sub
ファイルの中身を消さずに上書きするには上記のものを
どのようにすればよいか、記述願います。

> ファイルの中身を消さずに上書きするには上記のものを
> どのようにすればよいか、記述願います。

    Open "f:\JIGYOSHO.csv" For Append As #iFile
        Print #iFile, sz
    Close #iFile

ですね〜
以上。