Dim r1 = e.Form.Controls("RadioButtion1")
Dim r2 = e.Form.Controls("RadioButtion2")
Dim str As String = iif(r1.checked, r1.text, r2.text)
msgbox(str)