Wurde Optionbutton in Frame gewählt?

Private Sub cmd_Ok_Click()
For Each Cntrl In Me.Controls
If TypeName(Cntrl) = "Frame" And Cntrl.Visible = True Then
   If Option_gewaehlt(Cntrl) = True Then
MsgBox "Es wurde was gewählt!"
Else
Cntrl.BorderStyle = 1
MsgBox "Bitte eine Option wählen!"
End If
End If
Next Control
Unload Me
End Sub

Function Option_gewaehlt(Rahmen As Frame) As Boolean
Dim ctl As Control
For Each ctl In Rahmen.Controls
If ctl.Value = True Then
Checkbox_gewaehlt = True
Exit Function
End If
Next
Checkbox_gewaehlt = False
End Function

Leider bricht das Makro in der fett markierten Zeile ab, Fehlermeldung: Argumenttyp ByRef unverträglich.
Was heißt das? Wie kann ich das Problem beheben?
Danke und Gruß
Specke