前のレスで質問させていただいたものは解決することが出来ました。
申し訳ありません。
あと、もうひとつ質問なのですがリストボックスで選択したものをファイルに書き込みたいのです。

以下のような、書き方では書き込むことは出来ませんか？

Open "C:\DATA\OrderData.csv" For Append As #2
Write #2, list1.Text, _
list2.Text, _
list3.Text, _
Close #2