VB2010でCSVファイルを読み、配列に入れる

質問

ExcelVBAで、フォルダを選択しCSVファイルを表示⇒クリックで対象ファイルを選び配列に入れる次のプログラムを作りました。その後でデータを加工しグラフィック化してるのですが、VBAのグラフィック機能が遅いのでVB2010に変えようと思いいろいろやってみたのですが、どうもうまくいきません。
どなたか、VB2010ではどのようなプログラムになるのか、教えていただけないでしょうか。
'Excel VBA----------------------------------------
Sub CSVデータ()
Dim xd(1000),yd(1000)
'フォルダを選ぶ
ChDir ThisWorkbook.Path
'CSVファイルの一覧
pname = _
Application.GetOpenFilename(FileFilter:="CSVファイル(*.csv),*.csv" _
, FilterIndex:=1,Title:="開く",MultiSelect:=False)
'対象ファイルをクリックで選ぶ
If pname <> False Then
Workbooks.Open Filename:=pname
End If
fname = ActiveWorkbook.Name
'CsVファイルのセルから配列へ移す
nstart = 6
nend = nstart +500
k = 0
For i = nstart To nend '6行目から500行の2列、3列を読み配列に入れる
k = k + 1
xd(k) = Cells(i, 2)
yd(k) = Cells(i, 3)
Next i
End Sub

回答No.1

K Kazz（@JazzCorp） · ベストアンサー

細かいトコは無視してこんな感じ、、、
もちろんVBA、、、

Sub CSVデータ()
Dim xd(1000), yd(1000)
Dim xSheet As Worksheet
Set xSheet = ActiveSheet
'フォルダを選ぶ
ChDir ThisWorkbook.Path
'CSVファイルの一覧
pname = Application.GetOpenFilename(FileFilter:="CSVファイル(*.csv),*.csv" _
, FilterIndex:=1, Title:="開く", MultiSelect:=False)
'対象ファイルをクリックで選ぶ
If pname = Empty Then Exit Sub
Workbooks.Open Filename:=pname
fname = ActiveWorkbook.Name
'CsVファイルのセルから配列へ移す
nstart = 6
nend = nstart + 500 - 1
k = 0
For i = nstart To nend '6行目から500行の2列、3列を読み配列に入れる
k = k + 1
xd(k) = Str(xSheet.Cells(i, 2).Value)
yd(k) = Str(xSheet.Cells(i, 3).Value)
Next i
Erase xd
Erase yd
End Sub

補足

ご回答、ありがとうございます。
質問の趣旨はExcelのVBAで作ったサンプルプログラムと同様のことをVB2010で実行するプログラムはどうなるか、ということです。
当方の説明不足で申し訳ありません。