テキストファイル内のRGBコードをセルの背景色にしたい

Question

前提・実現したいこと

テキストファイル内のRGBコードをセルの背景色にしたい

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

Sub Macro1()
'
' Macro1 Macro
'

'
    Dim buf As String
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim TFile As String
    
    TFile = Application.GetOpenFilename("TEXT,*.txt")
        If TFile = "False" Then Exit Sub
    
    i = 1
    j = 1
    k = 1
    
    Cells(1, 1).Select
    Open TFile For Input As #1
        Do Until EOF(1)
            If j = 19 Then
                i = 1
                j = 1
                k = k + 1
                Cells(i, k).Select
            End If
            Line Input #1, buf
            Cells(i, k).Interior.Color = RGB(buf)
            i = i + 1
            j = j + 1
        Loop
    Close #1
End Sub

テキスト

0,0,0
0,0,128
0,160,198
100,30,100
101,101,186

のように記載されています

補足情報（FW/ツールのバージョンなど）

ツール
Excel2016

参考サイト
http://officetanaka.net/excel/vba/file/file08b.htm
https://www.tipsfound.com/vba/07006

Answer 1

Line Input #1, buf
Cells(i, k).Interior.Color = RGB(buf)
を
Line Input #1, buf
tmp = Split(buf, ",")
Cells(i, k).Interior.Color = RGB(tmp(0), tmp(1), tmp(2))
としたらできました。