Private Sub Command1_Click()
  Dim i As Integer
 
  For i = 0 To 10
    If Form1.Controls("OptionButtonNeu" & i).Value Then
      MsgBox "OptionButton " & i & " ist ausgewählt..."
      Exit Sub
    End If
  Next i
 
  MsgBox "Kein OptionButton ausgewählt"
End Sub

Viel Spass,
R@lf