Checkbox skifter farve på tekst

Prøv følgende:

Private Sub Afkrydsningsfelt_AfterUpdate()
  OpdaterFarve
End Sub

Private Sub OpdaterFarve()
  If Me.Afkrydsningsfelt Then
    Me.Tekst.ForeColor = vbGreen
  Else
    Me.Tekst.ForeColor = vbRed
  End If
End Sub

Private Sub Form_Current()
  OpdaterFarve
End Sub

Sidste Sub sørger for rigtig farve, når du bladrer.

Det virker helt perfekt!,
Men kan jeg få teksten til at ændre sig fra godkendt til ikke godkendt i stedet for? - eller samtidig (også)

Private Sub OpdaterFarve()
  If Me.Afkrydsningsfelt Then
    Me.Tekst.text = \"godkendt\"
  Else
    Me.Tekst.test = \"ikke godkendt\"
  End If
End Sub