vb将文本文件写入excel

i = 1
Open "c:/result.txt" For Input As #1
Do Until EOF(1)
    Input #1, tempLine
    'If tempLine <> "" Then
    arr = Split(templine, " ")
    For j = LBound(arr) To UBound(arr)
    sh.Cells(i, 1).NumberFormatLocal = "@"
      sh.Cells(i, j + 1) = arr(j)
      Next j
      i = i + 1
       Loop
       Close #1