オプションのシートに貼ったラジオボタンのVBAでの処理の書き方

Question

下記画像のようにラジオボタンをシートに貼りました。

この場合、オプション１を選択した時の処理、オプション２を選択した時の処理という感じで分岐のVBAを作りたいのですが・・・
オプション１はどのように書けば良いのかが分かりません。

下記など試しましたが、下記では反応しませんでした。

MsgBox OptionBoxes("OptionButton 1").Characters.Text
ActiveSheet.OptionButtons("Option Button 1").Value

下記のような分岐のVBAも作成したのですが、
「SubまたはFunctionが定義されていません。」とエラーが出ます。

ご教授頂けますと幸いです。

 If ActiveSheet.OptionButtons("Option Button 1").Value = xlOn Then
       buf = ActiveSheet.OptionButtons("Option Button 1").Characters.Text.Caption
   ElseIf ActiveSheet.OptionButtons("Option Button 2").Value = xlOn Then
         buf = ActiveSheet.OptionButtons("Option Button 2").Characters.Text.Caption
     Else
  End If
   MsgBox buf & " が選択されています"

Answer 1

解決できました。ありがとうございます。

Answer 2

「下記では反応しませんでした」というのは、エラーとかではなくて何も起こらないのでしょうか？

とりあえずラジオボタンのキャプションはCaptionプロパティで取れるので、2番目の囲みのソースは以下で大丈夫だと思います。

ActiveSheet.OptionButtons("Option Button 1").Characters.Text.Caption
  ↓
ActiveSheet.OptionButtons("Option Button 1").Caption