9 런타임 오류가 발생하였습니다. 아래 첨자 사용이 잘못되었습니다

@식모 님 디버깅을 하면서 봐야겠지만,

var(0)에서 ","가 들어 있는 갯수와 나머지 var(i)에서 콤마가 들어 있는 갯수가 달라서 그런 것 같습니다.

실제로 추출된 var배열의 각 요소가 어떻게 되는지 점검해 보세요.

var(0)과 var(i)의 쉼표개수가 잘못된 듯하여 아래와 같이 코드를 수정하였는데도 안되네요

뭐가 문제일까요?

C = UBound(Split(vArr(0), """,""")) ' var(0)의 쉼표 개수 계산

For i = LBound(vArr) To UBound(vArr)
s = vArr(i)
s = Mid(s, 2, Len(s) - 2)
v = Split(s, ",")
For j = 0 To C
If Left(v(j), 1) = """" Then
vResult(i, j) = CStr(Mid(v(j), 2, Len(v(j)) - 2))
Else
vResult(i, j) = v(j)
End If
Next
Next

@식모 님 점검할 포인트는 배열의 모든 항목에 구분자인 "," 가 동일하게 들어 있는가입니다.

코딩 의도를 모르므로 ","가 몇 개이든 상관없이 에러를 막으려면 아래처럼 수정해 보세요.

v = Split(s, ",") 다음에서
For j = 0 To IIF( UBound(v) > C, C, UBound(v) )