Checkbox kode

Her er min kode der self. ikke virker, men jeg vil gerne have at den gemmer "farven" og at jeg så kan overføre den til en helt ny textbox, så jeg kan bruge endnu flere informationer.
Hvordan kan det lade sig gøre?
På forhånd tak!
Sub Button1_Click(sender As Object, e As EventArgs)
    if radiorod.Checked
      resultat.text="Rød"
    elseif radioblaa.Checked
      resultat.text="Blå"
    elseif radiogul.Checked
      resultat.text="Gul"
    elseif radiogron.Checked
      resultat.text="Grøn"

      res.text= "du har valgt" & resultat.text

    end if



End Sub