エクセルVBAのオプションタブでテキストボックスの値を変えたい

Question

前提・実現したいこと

ご閲覧いただきまして、誠にありがとうございます。
現在、エクセルのVBAを勉強してます。
シート１にとある遊園地の入場料があった時にオプションタブで、
区分で大人が選択時にテキストボックス1へその料金である500円が自動的に表示されるというものに
挑戦中です。

現在、テキストボックス１にその料金が表示できずで困ってますので、
ご教授ください。
|　　 |　A |　B　 | c |
| 1　|区分|料 金|合計|
|　2　|大人|500円|　　|
|　3　|子供|300円|　　|

コード

### 該当のソースコード

Private Sub UserForm_Initialize() '開発LAN自動表示設定
Dim i As Integer
Dim SheetSect As String '入力シート選択

    For i = 1 To 2　’オプションタブ１が大人500、オプションタブ２が子供200
        If UserForm1.Controls("OptionButton" & i).Value = True Then
            SheetSect = UserForm1.Controls("OptionButton" & i).Caption
        End If
    Next i
    

　 If SheetSect = "大人" Then
UserForm1.TextBox1.Text = "大人"
End If
End Sub

### 補足情報（FW/ツールのバージョンなど）
エクセル　VBA 、ウィンドウズ10

Answer 1

UserForm1.TextBox1.Text = "大人"を
UserForm1.TextBox1.Text = "大人|500円"
にしてはいかがでしょうか。