Problem solved with two routines
solved my problem. These were not difficult to write and seem to work. NOT fancy or all inclusive, but they work for me.
---------------------------------------
Private Function getRadio(ByRef pGroup As System.Windows.Forms.GroupBox) As String
Dim oRadio As System.Windows.Forms.RadioButton
Dim sReturn As String = ""
Try
For Each oRadio In pGroup.Controls
If oRadio.Checked Then
sReturn = oRadio.Text
End If
Next
Return sReturn
Catch
Return Err.Description
End Try
End Function
Private Sub setRadio(ByRef pGroup As System.Windows.Forms.GroupBox, ByVal pValue As String)
Dim oRadio As System.Windows.Forms.RadioButton
For Each oRadio In pGroup.Controls
If Trim(oRadio.Text) = Trim(pValue) Then
oRadio.Checked = True
Exit Sub
End If
Next
End Sub