というわけで少しいじってみた

Dim opt As OptionButton
For Each opt In Me.Option1
　If opt.Value Then
　　MsgBox CStr(opt.Index) & "が選択されました"
　End If
Next