SetFocus for Option button click and Change for textbox does the trick:
SetFocus
Change
Private Sub OptionO_Click() Me.TextO.SetFocus End Sub Private Sub TextO_Change() Me.OptionO.Value = True End Sub