[Resolvido]Gravar valor do quadro de opções como texto

Boa tarde

Sei que é necessário criar um grupo de opção desacoplado para esse valor ser gravado como texto.
Até encontrei um tópico, mas o exemplo não se encontrava mais presente.

Na dúvida tenho 1 form e 1 tabela

Gostaria que valor da opção 1 fosse registrado como não se vê, ou praticamente não se vê, a opcao2 como se vê e a opcao3 como se vê claramente.

Criei uma MSG box para mostrar ao usuário a sua escolha.

Mas não consigo gravar o texto em si.

        Private Sub Quadro1_Click()
       Dim Quadro1 As Integer
       Select Case Me.Quadro1
           Case Is = 1
           MsgBox ("não se vê, ou praticamente não se vê")
         '  Me.Opcao1.Value = "não se vê, ou praticamente não se vê"
           
         '  DoCmd.RunSQL "UPDATE tabela1 SET tabela1.Quadro1" = Me.Opcao1
           
        '   DoCmd.RunSQL "UPDATE tabela1 SET tabela1.Opcao1.Value "

           
            Case Is = 2
           MsgBox ("se vê")
         '  Me.Opcao2.Value = "se vê"
            Case Is = 3
           MsgBox ("se vê claramente")
         '  Me.Opcao3.Value = "se vê claramente"
       End Select

End Sub




Algum caminho.

Obrigado.

Resolvido


Dim Quadro1 As Integer
Select Case Me.Quadro1
Case Is = 1

MsgBox "Não se vê, ou praticamente não se vê", vbInformation, "Informação"
Me.Resposta1 = "não se vê, ou praticamente não se vê"
Case Is = 2
MsgBox "se vê", vbInformation, "Informação"
Me.Resposta1 = "se vê"
Case Is = 3
MsgBox "se vê claramente", vbInformation, "Informação"
Me.Resposta1 = "se vê claramente"

End Select




Obrigado