[Resolvido]Atualizar um campo automaticamente ao abrir o formulário

Bom dia Amigos do Forum;

Sou novo no que diz conhecimento, porem aprendo muito com vs.

Vejam vem! tenho 3 campos sendo eles:
1º- Uma caixa de Verificação de nome (visto).
2º- Uma caixa de texto de nome (Status).
3º- Uma caixa de texto de nome (Data).

Dúvida:
Gostaria que quando eu marcasse a caixa de verificação (Visto), no campo Status aparecesse (Concluído), mais se não marcado, e a data form maior que atual aparecesse (Não concluído).
Segue anexo exemplo.

Private Sub visto_BeforeUpdate(Cancel As Integer)
If Me.visto = -1 Then
Me.status = "Concluido"
Else
Me.status = "Não Concluido"
End If
End Sub

Ok. Migo, muito obrigado.