CSVを取り込むときに"を除去するサンプル

Sapmle.vba

    Open varFileName For Input As #1
    Do Until EOF(1)
        Line Input #1, buf
        buf = Replace(buf, """", "")
        tmp = Split(buf, ",")

        ws.Cells(i, 1).Resize(1, UBound(tmp) + 1).Value = tmp
        i = i + 1
    Loop
    Close #1

CSV取込を行うときにデータがダブルクォート(")で囲まれていると扱いが面倒です
取り込むときにダブルクォートを除去するには、Replace関数で置き換えてやります