以下のVBAを利用してCSVファイルを取り込むだけなのですが、 取り込み終わった後...

以下のVBAを利用してCSVファイルを取り込むだけなのですが、
取り込み終わった後に、テキスト形式のセルがいくつかの列に存在してしまい

「このセルにある数値が、テキスト形式か、またはアポストロフィで始まっています。」
の注意コメントが発生して、次のステップ（グラフ表示）に進めません。
注意を回避して、数値だけをセルに表示したいのですが、
何が不足しているのでしょうか？
申し訳ありませんが、教えてください。


Sub ボタン1_Click()

Dim i As Integer
Dim bufStr As String
Dim filePath As String
Dim fd As FileDialog

'ファイル選択ダイアログボックス
Set fd = Application.FileDialog(msoFileDialogFilePicker)

With fd
'ファイルの複数選択を不可
.AllowMultiSelect = False

'タイトル
.Title = "CSVファイル"

'ファイルフィルタのクリア
.Filters.Clear

'ファイルフィルタの設定
.Filters.Add "CSVファイル ", "*.csv"

'初期表示のフォルダ
.InitialFileName = ""

If .Show = True Then
'ファイルパスの取得
filePath = .SelectedItems(1)
Else
'キャンセル
Exit Sub
End If
End With

'ファイルのオープン
Open filePath For Input As #1

i = 2

Do While Not EOF(1)

' CSV ファイルを１行読み込み
Line Input #1, lineStr
' カンマ区切りで分割し配列に格納
arrayStr = Split(Replace(lineStr, """", ""), ",")
' A1 セルを基点にして、列数を配列の要素数分広げ、行数のオフセット分ずらして展開する
Range("A2").Resize(1, UBound(arrayStr) + 1).Offset(RowIndex) = arrayStr
' 行オフセットをインクリメント
RowIndex = RowIndex + 1

Loop

'ファイルを閉じる
Close #1


End Sub