テキストファイル読み込みタブ区切り

Sub テキストファイル読み込みタブ区切り()
    Dim filePath As String
    Dim buf As String, iRow As Integer
    Dim i As Integer
    Dim temp As Variant
    Dim fileNo As Integer
    
    filePath = Application.GetOpenFilename("CSVファイル(*.csv),*.csv,テキストファイル(*.txt),*txt")
    fileNo = FreeFile()
    Open filePath For Input As #fileNo
    Do Until EOF(1)
        Line Input #fileNo, buf
        temp = Split(buf, vbTab)
        iRow = iRow + 1
        For i = LBound(temp) To UBound(temp)
            Cells(iRow, i + 1) = temp(i)
        Next
    Loop
    Close #fileNo
End Sub

'エラー処理を入れましょう