私有子命令1_Click（）
將CSV文件設為字符串
Dim d（）作為字符串
將I設為整數
i = 0
CSV file =“c:\ file . CSV““CSV文件路徑和用戶名。
打開csvfile作為# 1‘打開文件進行輸入。
“do While Not EOF（1）”來確定它是否到達文件末尾。
‘redem preserve d（I）‘重新定義數組中的上標。
Line Input #1，d（I）‘讀取整行數據。
d（I）= Split（d（I），“，““）（1）‘讀取該行數據的逗號分隔的第二個數據，0為第壹個數據。
d（I）= Replace（d（I），““，““）‘如果要刪除數據兩邊的雙引號，可以添加這行代碼。
I = I+1‘行加上1。
循環回路
“關閉#1”關閉文件。
I = I-1‘此時I的值就是文件中的行數。
末端接頭