求助！打开CSV文件随机显示不算

'看一下结果，如果还有问题估计是文件编码混乱。可以上个csv文件的附件到百度网盘
Option Explicit
Sub abc()
　Dim i, j, t, m, a, pth, file
　pth = ThisWorkbook.Path & "\"
　file = pth & "aaa.csv"
　If Dir(file) = vbNullString Then MsgBox file: Exit Sub
　Open file For Input As #1
　a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)
　Close #1
　For i = 0 To UBound(a)
　　t = Split(a(i), ",")
　　If i = 0 Then ReDim b(1 To UBound(a) + 1, 1 To UBound(t) + 1)
　　m = m + 1
　　For j = 0 To UBound(t)
　　　b(m, j + 1) = t(j)
　　Next
　Next
　[a1].Resize(m, UBound(b, 2)) = b
End Sub