OptionValue in optionbutton for Access frame

I am trying to determine in code the value Option Value of
each control in an option frame controls collection. The
intent is to find a match to Frame.value then get the tag
value of the the option button selected. The tag has some
important information relative to the selection. AM I
close here:

Private Sub Current_Status_ID()
Dim ctl As Control
Dim varFraStatusValue As Variant
Dim varCtlOptionValue As Variant

For Each ctl In fraStatus.Controls
varFraStatusValue = fraStatus.Value
varCtlOptionValue = ctl.OptionValue

If varCtlOptionValue = varFraStatusValue Then
strCurrent_Selected_Status = Val(ctl.Tag)

'This is to get the tag value here?

End If

Next

End Sub

Regards,

Marcel K.