Private Sub Option1_Click(Index As Integer)
   Select Case Index
      Case 0
         Debug.Print "OptionButton " & Index & " wurde geklickt"
      Case 1
         Debug.Print "OptionButton " & Index & " wurde geklickt"
      Case 2
         Debug.Print "OptionButton " & Index & " wurde geklickt"
   End Select
End Sub