テキストファイルを条件付きでexcelに書き出すVBAを作成したい

Question

前提・実現したいこと

テキストファイルのデータをexcelのセルに書き込むVBAを作成したいです。
書き込むにも条件を加えたく、「{」と「}」の中にあるデータをセルに書き出したいです。

具体的に説明すると、
txtファイルの中身が以下になっており、

data
{1997
8400
7777
}
{9111
5555
4444
}

txtファイルからexcelのセルに以下のように出力したいです。

1997	9111
8400	5555
7777	4444

まだVBAを始めたばかりなので、詳しい方がいればご教授ください。

該当のソースコード

Sub fileinput()
    Dim buf As String, n As Long
    Open "C:\data.txt" For Input As #1
        Do Until EOF(1)
            Line Input #1, buf
            n = n + 1
            Cells(n, 1) = buf
        Loop
    Close #1
End Sub

試したこと

該当のソースコードには試しに一行ずつのデータを書き出すことができましたが、条件付きで書き出すにはどうすればいいか分からないので、ご教授ください。

Comments

[K_3578]

ソースコードはMarkDownの<code>ブロック内に貼り付けてください。
質問は編集できますので。

[Ryzen9]

ご指摘ありがとうございます。修正致しました。

Answer 1

与えられた情報だけであればこんな書き方もあります。
数値に限定しているので文字列があれば破綻してます。

Sub fileinput()
    Dim buf As String
    Dim r As Long, c As Long
    Open "C:\data.txt" For Input As #1
        Do Until EOF(1)
            Line Input #1, buf
            If InStr(buf, "{") Then
                r = 1
                c = c + 1
                Cells(r, c) = Mid(buf, 2)
            ElseIf IsNumeric(buf) Then
                r = r + 1
                Cells(r, c) = buf
            End If
        Loop
    Close #1
End Sub

Comments

[Ryzen9]

ご回答ありがとうございます。
試ししに実行したところ、以下のエラーが発生しました。
「実行時エラー：1004 アプリケーション定義またはオブジェクト定義のエラーです。」

該当するソースコードは、
Cells(r,c) = buf
となっております。

宣言したr,cに問題があるのでしょうか？

[Ryzen9]

申し訳ありません。ソースコードはそのままでテキストファイルを作り直したところ、エラーが解決でき、上手く出力することが出来ました。
ご教授ありがとうございます。