vba 陣列索引超出範圍

有哪位高手能告訴我是哪裡有問題？資料有成功輸出，但是卻會show 這個訊息，感謝您~~

sub test( )
Open outFilePath For Output As #2

For nRow = LBound(dataArray) To UBound(dataArray)
arrLine = Split(dataArray(nRow), ",")

oneLine = arrLine(LBound(arrLine)) 'The first column

For nCol = LBound(arrLine) + 1 To UBound(arrLine)
oneLine = oneLine & "," & Range("A1").Offset(nRow, nCol).Value
Next

Print #2, oneLine
Next nRow

Close #2

end sub